Как вам программа ?

[Andreyko]

Как программа ? Может что-то тупо сделано. Отдельное спасибо ROMA2PVT.
Uses
Crt;
Var
q:integer;
Ch:Char;

Procedure Pause;
Var Ch:Char;
Begin
While KeyPressed do Ch:=ReadKey;
Repeat until KeyPressed;
While KeyPressed do Ch:=ReadKey
End;

Procedure Okno(x1,y1,x2,y2:integer);
Begin
Window(x1,y1,x2,y2);
ClrScr
End;

Procedure Cilindr;
Var
f,p,r:real;
begin
ClrScr;
writeln('Odnoridnui cilindr, masa jakogo P kg, legit na gladkui goruzontalnyu');
writeln('poverhni. Zverhy na cilindr davyt vertukalna sula F kg, linija diji');
writeln('jakoji prohodut cherez centr tjaginna cilindra. Vuznachutu tusk cilind-');
writeln('ra na goruzontalny poverhny.');
readln;
ClrScr;
write('Vvedit P kg:=');
readln(p);
write('Vvedit F kg:=');
readln(f);
R:=P+F;
writeln('');
writeln('Tusk cilindra na goruzontalny poverhny:=',R:1:3);
end;

Procedure PrSter;
Var
ab,cd,pa,a,ae,pc:real;
Begin
ClrScr;
writeln('V tochkah A i B na sterghen dijut vertukalni sulu Pa i Pb. Jaky suly');
writeln('potribno naklastu na sterghen v tochzi C, napravuv jih perpendukyljarno');
writeln('do sterzhnja, schob zberigalas rivnovaga.');
readln;
ClrScr;
write('Vvedit AB m:=');
readln(ab);
write('Vvedit CD m:=');
readln(cd);
write('Vvedit Pa=Pb n:=');
readln(pa);
write('Vvedit kut alpha:=');
readln(a);
ae:=ab*COS(a*pi/180);
pc:=(pa*ae)/cd;
writeln('');
writeln('Sula v t.C:=',pc:1:3);
End;

Procedure Ravno;
Var
p1,p2,r,ab,ac:real;
Begin
ClrScr;
writeln('Vuznachutu rivnodijychy suly dvoh paralelnuh sul P1 i P2, napravlenuh');
writeln('v odny storony, na vidrizky AB.');
readln;
ClrScr;
write('Vvedit P1 n:=');
readln(p1);
write('Vvedit P2 n:=');
readln(p2);
write('Vvedit AB m:=');
readln(ab);
r:=p1+p2;
ac:=(p2*ab)/r;
writeln('');
writeln('Takum chunom rivnodijycha dvoh danuh sul dorivnyje R=',r:1:3,' n i');
writeln('linija jiji diji znahodutsa vid t.A na vidstanni AC = ',ac:1:3,' m. ');
End;

procedure PrPlanka;
Var
g,ab,p2,p1,ac,r,ad:real;
Begin
ClrScr;
writeln('Na kinzhjah pramolinijnoji odnoridnoji planku dovzhunojy AB ta masojy');
writeln('G n pruednani dva gryzu: P1 i P2. V jakomy mistsi planku treba pruro-');
writeln('butu petelky, schob pidvishena na nij planka z gryzamu zalushalas v');
writeln('goruzontalnomy polozheni?');
readln;
ClrScr;
write('Vvedit AB m:=');
readln(ab);
write('Vvedit G n:=');
readln(g);
write('Vvedit P1 n:=');
readln(p1);
write('Vvedit P2 n:=');
readln(p2);
r:=p1+g+p2;
ac:=ab/2;
ad:=(g*ac+p2*ab)/r;
writeln('');
writeln('Liniya rivnodijychoji prohodut cherez t.D na vidstanni AD = ',ad:1:3,' m');
writeln('vid livogo kintsa planku.');
end;

BEGIN
Clrscr;
q:=2;
While True do
begin
Writeln('Vyberit zadachu:':47);
WriteLn(' 1.Cilindr');
Writeln(' 2.Pryamoliniyny Sterzhen');
WriteLn(' 3.Ravnodeystvuyuschaya');
WriteLn(' 4.Pryamoliniynaya planka');
WriteLn(' 5.Vuhid');
GoToXY(1,q);
Write('=>');
Repeat
CH:=ReadKey;
GoToXY(1,q);
Write(' ');
Case CH of
#72,#73:q:=q-1;
#80,#81:q:=q+1;
#71:q:=2;
#79,#27:q:=6;
end;
If q=1 then q:=6;
If q=7 then q:=2;
GoToXY(1,q);
Write('=>');
until CH in [#13,#27];
Case q of
2:begin
Cilindr;
readln;
clrscr;
end;
3:begin
PrSter;
readln;
clrscr;
end;
4:begin
Ravno;
readln;
clrscr;
end;
5:begin
PrPlanka;
readln;
clrscr;
end;
6:begin
Window(1,1,80,25);
ClrScr;
Halt
end
end;
GoToXY(5,1);
ClrScr
end;
END.