Сложить 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 тысячи