Алгоритмический язык бейсик паскаль алг нач цел s,k s: =100 нц для k от 0 до 10 s: =s-5 кц вывод s кон dim s as integer dim k as integer s = 100 for k = 0 to 10 s = s – 5 next k print s end var s, k: integer; begin s: = 100; for k: = 0 to 10 do s: = s - 5; writeln (s); end.