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

Бейсик

Паскаль

алг

нач

цел  s, k

s := 0

 нц для k от 15 до 19

   s := s + 8

кц

вывод s

кон

DIM k, s AS INTEGER

s = 0

FOR k = 15 TO 19

  s = s + 8

NEXT k

PRINT s

END

var s,k: integer;

begin

 s := 0;

 for k := 15 to 19 do

   s := s + 8;

 writeln(s);

end.