Исправьте код пж даю 20 б



Program(infinity);
Begin
Const PI=3.14;
Var(I,S,r):real;
Writeln(BBEDI RADIYS);
readln(r);
I:=2*PI*r;
S:=PI*r*r;
Writeln(`I=`,I `S=`,S);
End



Ошибка ожидался Интефикатор
 Паскаль АВС

Ну и в чем тут нарушение?

"Quos Deus perdere vult dementat prius" ( лат. "Кого Бог хочет погубить, того он сначала лишает разума")

"Поздравляю тебя, Шарик, ты - балбес" (с)

код не работает

А у меня нормально работает, представляете?

Program infinity;Const PI=3.14;beginVar I,S,r:real;Writeln('BBEDI RADIYS');readln(r);I:=2*PI*r;S:=PI*r*r;Writeln('I=',I,'S=',S);End.