Решение приведено на PascalABC:

var x,y,z:integer;

s:=0;

begin

 writeln ('Задайте три числа через пробел:');

 readln(x, y, z);

 s:= x+y+z;

 writeln ('Сумма чисел равна',' ', s);

end.