Задание

VAR S, K: INTEGER;

BEGIN

S:=0;

FOR K:=3 TO 7 DO

S:=S+6;

WRITELN (S)

END.