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

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