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

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