Определите результат выполнения следующей программы
var s:string
I,j integer
Begin
S:=программа
For i:=1 to i-1do write('')
Writeln(s(i))
End
Ebd.