PASCAL pętla while

[activerr]

Siema , za pomocą pętli while mam tak przekształcić ten program :

 

program pazdziernik_1;

 

uses crt ;

 

var l1,l2,l3,lp,ln: integer ;

 

menu: char;

 

blad : boolean;

 

 

 

begin

clrscr;

 

writeln ('podaj pierwsza liczbe');

readln (l1);

writeln ('podaj druga liczbe ');

readln (l2);

writeln ('Podaj trzecia liczbe');

readln (l3);

 

writeln ('1-najwi?ksze liczby');

writeln ('2-liczby parzyste i nie parzyste');

writeln ('3-sortowanie liczb');

readln (menu);

case menu of

 

'1': begin

 

 

if (l1>l2) and (l1>l3)

then writeln (l1);

if (l2>l1) and (l2>l3)

then writeln (l2);

if (l3>l1) and (l3>l2)

then writeln (l3);

readln

end;

 

 

 

 

 

 

'2':

 

begin

 

lp:=0;

ln:=0;

if (l1 mod 2)=0 then

lp:=lp+1 else

ln:=ln+1;

if(l2 mod 2)=0 then

lp:=lp+1 else

ln:=ln+1;

if (l3 mod 2)=0 then

lp:=lp+1 else

ln:=ln+1;

writeln('Liczb parzystych: ',lp);

writeln('Liczb nieparzystych: ',ln);

readln

 

end;

 

 

 

 

 

 

 

'3': begin

 

if (l1<l2) and (l1<l3) and (l2<l3) then

write (l1,' ',l2 ,' ', l3)

else

if (l2<l1) and (l2<l3) and (l1<l3) then

write (l2,' ',l1, ' ', l3)

else

if (l3<l1) and (l3<l2) and (l1<l2) then

write (l3,' ',l1, ' ', l2)

else

if (l1<l3) and (l1<l2) and (l2<l3) then

write (l1,' ',l3, ' ', l2)

else

if (l3<l2) and (l3<l1) and (l2<l1) then

write (l3,' ',l2, ' ', l1);

readln

end;

end;

 

 

 

 

 

 

 

 

 

end.

 

 

 

tak by przy wpisaniu liczb i np wyborze w menu 1 pokaże mi największą liczbę to żeby pokazywał się komunikat "czy chcesz zakończyc działanie programu ? y/n" i żeby zapamiętywał te wcześniej wpisane zmienne a nie że po wybraniu y or n muszę wpisywać od nowa liczby .

 

druga sprawa to taka aby po np w menu wybraniu innej liczby niż 1 , 2 lub 3 wywalał błąd "wprowadziłeś złą wartość , podaj poprawną " i przechodził znow do wybrania 3 opcji w menu , dzięki