Отв на все вопросы только честно​

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.