Предлагаю код программы!
Code
Program variantov3;
uses crt;
var a, b, c, r, y: integer; {a,b,c - стороны, r-радиус, y-для синуса}
l, P, S, pol: real; {l - длина, P- перимет, S-площадь, pol-полуперимет}
x: byte;
begin
clrscr;
Randomize;
x:=Random(3);
case x of
0: begin
writeln('Vi4islenie dliny okr. i S kruga');
write('Vidite radius='); readln(r);
l:=2*pi*r;
S:=pi*sqr(r);
writeln('l=', l,' ','S=', S);
readln;
end;
1: begin
writeln('Vi4islenie P i S treugolnika');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
pol:=(a+b+c)/2;
S:=sqrt(pol*(pol-a)*(pol-b)*(pol-c));
P:=a+b+c;
writeln('S=', S,' ','P=', P);
readln;
end;
2: begin
writeln('Vi4islenie P i S parallelograma');
write('a='); readln(a);
write('b='); readln(b);
write('sin='); readln(y);
S:=a*b*sin(y);
P:=2*(a+b);
writeln('S=', S,' ','P=', P);
readln
end;
end; end.
(Не забываем ставить "плюсик")
