НУЖНА ИНФОРМАТИКА ПОСТАВЛЮ КАЖДОМУ ВЕРНОМУ ОТВЕТУ КОРОНКУ ОБЕЩАЮ И ПОДПИШУСЬ, ТОЛЬКО ВЫРУЧИТЕ​

1.var

N,a,b:integer;

 begin    

 a:=N;

b:=N-8;

     readln(a);

   write(a);

       write(b);

 end.

2.var

S,P, a,b:integer;

 begin

   read(a);

   read (b);

   begin

   P:=(a+b)*2;

  write('Периметр:',P); end;

  begin

  S:=a*b;  write('Площадь:',S); end;

 end.

3.

var

a,b,c:string;

 begin

    write('Как вас зовут?');

   readln(a);

   write('Сколько вам лет?');

   readln (b);

    write('Какой у вас номер телефона?');

      readln (c);

 

       write('Имя:',a);

  write('Возраст:',b);

   write('Номер телефона:',c);

 end.