Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел  s, k

s := 8

 нц для k от 14 до 18

   s := s + 6

кц

вывод s

кон

DIM k, s AS INTEGER

s = 8

FOR k = 14 TO 18

  s = s + 6

NEXT k

PRINT s

END

var s,k: integer;

begin

 s := 8;

 for k := 14 to 18 do

   s := s + 6;

 writeln(s);

end.