Images VAR BEGIN READLN

< Previous image
Image - 44
Next image >
Var begin readln. Writeln readln. Delete(s,i,length(s0)). Writeln('команда ', [i]. While k<11 do begin s: s+k k: k+1 разбор.
Writeln readln. Delete(s,i,length(s0)). Writeln('команда ', [i]. While k<11 do begin s: s+k k: k+1 разбор.