Написать программу нахождения суммы трёх целых чисел

Я напишу код на одном из базовых языков программирования, языке Pascal

Program z_1;

var

x, y, z, sum:integer;

begin

sum:=0;

writeln (' Введите первое число');

readln (x);

writeln ('Введите второе число');

readln (y);

writeln ('Введите третье число');

readln (z);

Sum:=x+y+z;

writeln ('Сумма трех введенных вами чисел равно: ', sum);

readln;

end.