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.
