Нужно зациклить программу : жмешь 0 и она возврашается в меню - Pascal ABC

Формулировка задачи:

program Alex01;
uses crt;
var
a,b,c,sq:string;
s,d,f,g,h,j,k,l,sum,raz,umn,kvad,kvadrat,i:integer;
del,kor,koren:real;
b1,pass:integer;
begin
clrscr;
pass:=130277;
writeln('ВВЕДИТЕ ПАРОЛЬ: ');
read(b1);
if b1=pass
 then
 begin
 
 
begin
clrscr;
writeln('Здравствуйте, я Alex , я твой персональный помошник');
writeln('Как мне тебя называть');
readln(a);
begin
clrscr;
writeln(' вот список того что я могу ');
writeln(' для того что бы я посчитал(сумму,произведение,разность и так далее) нажмите 1');
writeln(' чтобы сыгрыть в игру нажмите 2');
writeln(' хотите перевести рубли в доллоры нажмите 3');
writeln(' что мне сделать?');
readln(s);
end;
begin
clrscr;
if s=1
then
begin
writeln('введите число');
readln(d);
writeln('введите число');
readln(f);
sum:=f+d;
writeln('сумма равна',' ',sum);
raz:= d-f;
writeln('разность равна',' ',raz);
umn:= d*f;
writeln('произведение равно',' ',umn);
del:= d/f;
writeln('частное равно',' ',del);
kvad:= sqr(d);
writeln('квадрат числа',' ',d,' ','равен',' ',kvad);
kvadrat:=sqr(f);
writeln('квадрат числа',' ',f,' ','равен',' ',kvadrat);
kor:=sqrt(d);
writeln('корень числа',' ',d,' ','равен',' ',kor);
koren:=sqrt(f);
writeln('корень числа',' ',f,' ','равен',' ',koren);
writeln('для возвращения в меню нажмите 0');
readln(g);
end;
if s=2
then
begin
writeln('игра заключается в том, что вы можете вводить любые чила любое количество раз, но как только вы введете 0 я посчитаю сумму всех введенных чисел');
h:=1;
while h<>0 do
begin
writeln('введите число');
write('h=');
readln(h);
j:=h+j;
end;
writeln(j);
writeln('для возвращения в меню нажмите 0');
readln(k); 
end;
if s=3
then
begin
writeln('курс доллора 62 российских рубля');
writeln('введите количество рублей');
readln(i);
i:=i*62;
writeln(i);
writeln('для возвращения в меню нажмите 0');
readln(l);
end;

Код к задаче: «Нужно зациклить программу : жмешь 0 и она возврашается в меню - Pascal ABC»

textual
begin
  repeat
      clrscr;
      if s=1 then
 
    ... тут твоя программа
 
 
    writeln('для возвращения в меню нажмите 0');
    readln(l);
  unitl l<>0;
end.

14   голосов, оценка 3.643 из 5


СОХРАНИТЬ ССЫЛКУ