Question

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

Answer 1

А как следующая программа выдаст ответ, если она неправильно написана? ))