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

Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln(введите два числа);
readln(x);
readln(y);
if (xlt;1000000001) and (ylt;1000000001) and (xgt;0) and (ygt;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.