Ботаника- Это раздел науки Растениях;Земледельцы-это люди которые занимаются работой связанной с землёй.Животноводы-Это люди которые выращивают домашний скот.НУ как то так
Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.
Файл .cs не прикрепляется, поэтому прикрепил с расширением .txt. Если нужен файл .cs, то убери из расширения .txt.