1. Ввести числа х, у если х>0. найти сумму иначе произведение writeln (x+y; 2. Найти у = (ниже в первой фотке) +примеры как надо решать

//1

Var

x:integer;

begin

readln(x);

if x>100then x:=x+50 else x:=x*2;

writeln(x);

end.

//2

Var

x:integer;

begin

read(x,y);

if x>y then x:=x*2;

if x<y then x:=x+y;

writeln(x)

end.

Объяснение:

это все что я знаю...