Даны два целых числа от 1 до 1 000 000 000. Найти сумму этих чисел. Входные данные: два целых числа. Выходные данные: целое число. На Паскале

Точная задача по Техническому Заданию:

var x, y:integer;

begin

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

readln (x) ;

readln (y) ;

if (x<1000000001) and (y0) and (y>0)

then writeln ('сумма чисел = ', x+y)

else writeln ('диапазон чисел неверный') ;

end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:

var x, y:integer;

s:string;

begin

randomize;

writeln ('взять ли числа случайными? Ответ да или нет') ;

readln (s) ;

if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin

x:=random (1000000000) ;

y:=random (1000000000) ;

writeln ('сумма чисел = ', x+y) ;

writeln ('произведение чисел = ', x*y) ;

end

else begin

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

readln (x) ;

readln (y) ;

writeln ('сумма чисел = ', x+y) ;

writeln ('произведение чисел = ', x*y) ;

end;

end.