Question

алг
нач
цел s, k
s := 50
нц для k от 1 до 9
s := s − 3
кц
вывод s
кон

Answer 1

var
s,k:longint;
begin
s:=50;
for k := 1 to 9 do
s:=s-3;
writeln(s);
end.

Ответ s =23