Что получится при выполнении программы...Program pr8;Var a, c, d; vce: integer;begin a:=9;c:=a mod 2+2;d:=sqr (c) +2;vce:=a+c+d;writeln ('Сумма равна-', vce);end.
а = 9, ввод с клавиатуры
с = 1, 9 разделить на 4 остаток 1
d = 3, корень из 1 — 1 и + 2 = 3
и ихния сумма выводится на экран