сложить a и b, но величины a и b не должны превышать 32000 тысяч. паскаль, решение программой.

Var a,b:real;
const n=32000000;
begin
readln(a);
if (a>n)then
while a>n do begin 
writeln ('введите другое a ');
readln(a)
end; 
readln(b);
if (b>n)then
while b>n do begin 
writeln ('введите другое b ');
readln(b);
end; 
 write(a+b);
end.

если там не 32 миллиона а 32 тысячи то заменить 32 миллиона в константе n на 32 тысячи