program Test;
var N1, N2, N3, Sum:integer;
begin write ('please enter the first number');
readln (N1);
write ('please enter the first number');
readln (N2);
write ('please enter the third number');
readln (N3);
Sum:= N1 + N2 + N3;
write ('you carefully calculated answer', Sum);
end