Ответ:
1)begin
writeln('Имя', ' ', 'Фамилия');
end.
2)begin
writeln('Я помню чудное мгновенье:
');
writeln('Передо мной явилась ты,');
writeln('Как мимолётное виденье,');
writeln('Как гений чистой красоты.');
end.
3)var a,b : integer;
resh : array[1..4] of integer;
begin
readln(a);
readln(b);
resh[1]:=a+b;
resh[2]:=a-b;
resh[3]:=a*b;
resh[4]:=a div b;
writeln('сумма =', ' ', resh[1]);
writeln('разность =', ' ', resh[2]);
writeln('произведение =', ' ', resh[3]);
writeln('частное =', ' ', resh[4]);
end.
Объяснение:
В третьем случае использовал массивы, повыпендриваешься перед учителем ;)