użyj repeat i until. :P i wszystkie zmienne musisz mieć zdefiniowane w jednym var przed begin ;)
E:
np. coś takiego:
Uses CRT;
Var
a, b , c, P, r, l, h, V: real
Begin
Repeat
{ Pierwsza część programu }
ClrScr;
WriteLn( 'Program oblicza pole trójkąta' );
WriteLn( 'Podaj A' );
Write( 'A: ' );
ReadLn( a );
WriteLn( 'Podaj B' );
Write( 'B: ' );
ReadLn( b );
P := SQRT( SQR( A ) + SQR( B ));
WriteLn( 'Pole wynosi: ' , B :6:2 );
WriteLn( 'Naciśnij klaiwsz aby przjść do następnej części programu.' );
Until keypressed
{druga część programu }
Repeat
ClrScr;
WriteLn( 'Program oblicza objętość stożka' );
WriteLn( 'Podaj wysokość stożka' );
Write( 'H: ' );
ReadLn( h );
WriteLn( 'Podaj Promień podstawy' );
Write( 'R: ' );
ReadLn( r );
l := SQRT( SQR( r ) + SQR( h ));
V := ( pi * r * l ) + ( 2 * pi * r );
WriteLn( 'Pole wynosi: ' , V :6:2 );
WriteLn( 'Naciśnij klaiwsz aby zakończyć program.' );
Until keypressed
END.
to tylko jedno rozwiązanie a są ich setki :D :P