Решение приведено на PascalABC:
var x,y,z:integer;
s:=0;
begin
writeln ('Задайте три числа через пробел:');
readln(x, y, z);
s:= x+y+z;
writeln ('Сумма чисел равна',' ', s);
end.
