Исправьте код пж даю 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
Ошибка ожидался Интефикатор
Паскаль АВС
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
Ошибка ожидался Интефикатор
Паскаль АВС