var s,k: integer;

begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

end.
решите задачу как в паскале обьяснение не нужно
СРОЧНО ПОЖАЛУЙСТА