1.
var y, x, z:String;
begin
writeln('Ваши фамилия, имя?');
readln(y);
writeln('Сколько Вам лет?');
readln(x);
writeln('Где вы живёте?');
readln(z);
writeln('Ваши фамилия и имя: ', y);
writeln('Ваш возраст: ', x);
writeln('Вы живёте в ', z);
end.
2.
var p, a:Integer;
begin
readln(a);
p:=4*a;
writeln('Периметр равен ', p);
end.
