1.Отыскать значение Y, которое одинаково квадрату данного числа Х , если

1.program zz1;
var x, y:integer; // вводим переменную целого типа
begin
write( введите x ); // вводим с клавиатуры число
read(x);
if x gt; 2 // проверяем условие
then y:=x * x;
else y:=4;
write( y= , y );// выводим ответ
end.
2.program zz1;
var x:integer; // вводим переменную целого типа
y:real; // вводим переменную не целого типа
begin
write( введите x ); // вводим с клавиатуры число
read(x);
if x lt; 7 // проверяем условие
then y:=3 * x + 9;
if x gt; 7 // проверяем условие
then y:=sin(x) + 1;
write( y= , y );// выводим ответ
end.