Можно побыстрей) спасибо, макс количество баллов)

Ответ:

Все на паскале если что)

Прога 1:

var x,y,z,c,d: integer;

begin

readln(x);

readln(y);

z:= x+y;

c:= x-y;

d:= z+c;

writeln(d)

end.

Прога 2:

var x,y:integer;

begin

readln(x);

y:=((x mod 10) * (x div 10)) * 2;

writeln(y)

end.

Объяснение: