Var k,s
begin
s=200
k=11
while s> 0 do
s= s-k
writel n (s)
end
молиться буду на васс

Kirakler2000    2   24.09.2019 13:55    1