1. Даны числа X,Y.Если Xamp;gt;Y, то посчитать S=X+Y, по другому посчитать S=X+Y.2.

1.program zz1;
var x, y, s:integer; // вводим переменные целого типа
begin
write( введите x ); // вводим с клавиатуры число
read(x);
write( введите y ); // вводим с клавиатуры число
read(y);
if x gt; y // проверяем условие
then s:=x + y
else s:=x + y;
write( Итог = , s );// выводим ответ
end.
2.program zz1;
var a, b, c, x, y:integer; // вводим переменные целого типа
begin
write( введите a ); // вводим с клавиатуры 1-ое число
read(a);
write( введите b ); // вводим с клавиатуры 2-ое число
read(b);
write( введите c ); // вводим с клавиатуры третье число
read(c);
x:=a * sqr(b) - b;
y:=sqr(b + c) - sqr(a);
if x gt; y // проверяем условие
then write( x = , x ) // выводим ответ
else write( y = , y );
end.