var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
это программа,а если надо было без неё,то D = 2 * R
D= 2*2=4
var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
это программа,а если надо было без неё,то D = 2 * R
D= 2*2=4