Дан радиус окружности. найти её диаметр. (код pascal)

Лол,  ну ок: var r  :   integer; begin readln(r); writeln(r*2); end;

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var v: =seqrandom(n,-99,99).select(t-> 0.1*t).toarray;   v.println;   var imin: =v.select(t-> abs(.indexmin;   writeln('номер минимального по модулю элемента- ',imin+1);   var fn: =v.select((x,i)-> (x,(t-> t[0]< 0).first[1];   writeln('сумма модулей элементов после первого отрицательного равна ',           v[fn+1: ].sum(t-> abs(;   var (a,b): =readreal2('введите границы интервала значений для удаления: ');   v: =v.where(t-> not t.between(a,;   var m: =n-v.length;   if n> 0 then begin       setlength(v,n);       for var i: =v.length to n-1 do v[i]: =0.0       end;   v.println end. пример n= 15 -9.4 3.9 6.2 -2.5 -5.2 9 4.9 -9.5 4.4 2.4 -8.8 3.1 -7.7 5.6 8.9 номер минимального по модулю элемента- 10 сумма модулей элементов после первого отрицательного равна 82.1 введите границы интервала значений для удаления: -20 2 3.9 6.2 9 4.9 4.4 2.4 3.1 5.6 8.9 0 0 0 0 0 0

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if abs(n).between(100,999) then begin       writeln('число трехзначное');       if n.isodd then writeln('число нечетное')       else writeln('число четное');       if n div 100 = n mod 10 then writeln('его первая и последняя цифры равны')       else writeln('его первая и последняя цифры не равны')       end   else writeln('число не трехзначное') end. примеры n= 452 число трехзначное число четное его первая и последняя цифры не равны n= 313 число трехзначное число нечетное его первая и последняя цифры равны n= 18 число не трехзначное