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

Я напишу код на одном из базисных языков программирования, языке 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.