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 тысячи
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.