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

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

если сравнивать объекты и их свойства между собой, то можно говорить о свойствах общих и отличительных.общие свойства объединять объекты в группу (группа – это множество объектов, где каждый объект является элементом этого множества). отличительные свойства отличить один объект от другого. например, свойство «защищать ноги» – это общее свойство ботинок, сапог, сандалий и туфель. а вот свойство «хранить тепло» – это отличительное свойство зимней обуви, если сравнивать её с летней.

информация бывает - визуальная (зрение) и звуковая (слух).

вкусовая, тактильная, обонятельная.

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end.