Написать программу (Паскаль) n+m-x

program zz1;

var n, m, x, d:integer; / / задаем переменные целого типа

begin

write (' введите первое число n '); / / вводим с клавиатуры первое число

read (n);

write (' введите второе число m '); / / вводим с клавиатуры второе число

read (m);

write (' введите третье число x '); / / вводим с клавиатуры третье число

read (x);

d: = n + m - x;

writeln (' полученный ответ = ', d); / / выводим ответ

end.