1. Даны числа X, Y. Если X>Y, то посчитать S=X+Y, иначе посчитать S=X+Y. 2. Даны числа a, b, cВЫчислить x=a*b (в квадрате) - b; y = (b+c) (в квадрате) - a (в квадрате) Если X>Y, то вывести значение X, иначе вывести значения Y

1. program zz1;

var x, y, s:integer; / / вводим переменные целого типа

begin

write (' введите x '); / / вводим с клавиатуры число

read (x);

write (' введите y '); / / вводим с клавиатуры число

read (y);

if x > 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 '); / / вводим с клавиатуры первое число

read (a);

write (' введите b '); / / вводим с клавиатуры второе число

read (b);

write (' введите c '); / / вводим с клавиатуры третье число

read (c);

x:=a * sqr (b) - b;

y:=sqr (b + c) - sqr (a);

if x > y / / проверяем условие

then write (' x = ', x) / / выводим ответ

else write (' y = ', y);

end.