Ответ:

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.

Объяснение:

В третьем случае использовал массивы, повыпендриваешься перед учителем ;)