var sum, i: integer;
begin
sum := 5; i := 1;
while (sum < 324) do
sum := sum + 4;
i := i + 1;
end;
writeln ('Слогаемых: ');
write (i);
end.
var sum, i: integer;
begin
sum := 5; i := 1;
while (sum < 324) do
begin
sum := sum + 4;
i := i + 1;
end;
writeln ('Слогаемых: ');
write (i);
end.