Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( 20 )

Var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
if a+b>100
 then begin a:=a-20; b:=b-20; end;
writeln('a = ',a,' b = ',b);
end.

Пример:
a, b:
54 81
a = 34 b = 61

program zadacha;

var

a,b,sum: real;

begin

writeln('vvedite dva chisla');

readln(a,b);

sum:=a+b;

if sum >100 then begin

a:=a-20;

b:=b-20;

end;

writeln('a=',a, ' b=',b);

end.