Question

Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент).

Answer 1

program sample;
label 1;
var
 el:integer;
 r,d,l,s:real;
begin
 s:=0;
 1: writeln("введите номер элемента:");
 readln(el);
 case el of
  1: begin writeln("введите радиус круга:"); readln(r); s:=3.14*sqr(r) end;
  2: begin writeln("введите диаметр:"); readln(d); s:=3.14*sqr(d/2) end;
  3: begin writeln("введите длину окружности:"); readln(l); s:={ф-ла нахождения площади через длину окр.} end;
  else: goto 1;
 end;
 writeln(s);
end.

Answer 2

var r,d,l,s:real;
    c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
else exit;
end;
until not(c in ['1'..'3']);
end.