Question

Дан радиус окружности. Найти ее диаметр. (записать программу в Pascal ABC) .
P.S. Заранее спасибо!

Answer 1

Как сказал кто-то, действительно мощно:D
var
r,d:integer;
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.