Ответ:

Program prog;

var a,b,c,d,e: integer;

f: real;

begin

writeln('Введите два числа');

readln(a);

readln(b);

e:=a*b;

e:= e * 2;

writeln('Произведение ',e);

if (e > 10) then e:= e - 10

else e:= e + 20;

writeln('Получилось ',e);

end.