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

Бейсик

Паскаль

алг

s = 110

var s, k: integer;

нач

FOR к = 5 ТО 12

begin

цел s, к

s = s - 5

s := 110;

s := 110

NEXT к

for k := 5 to 12 do

нц для к от 5 до 12

PRINT s

s : = s - 5 ;

s : = s - 5

END

write (s);

КЦ

end.

вывод S

кон