Question

Помогите написать программу l=2PR

Answer 1

Var i,r:integer;
   p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;