Организация меню с использованием цикла repeat - until - Pascal ABC

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

С клавиатуры вводится сторона квадрата (куба). Организовать работу в соответствии с пунктами меню: 1. Периметр квадрата 2. Площадь квадрата. 3.Объем куба. 0. Выход. Помогите, пожалуйста, програму написать с помощью repeat- until.
var d,b,a: integer;
begin
writeln ('Vvedite storony');
readln(a);
writeln ('1 - PERIMETR KVADRATA');
writeln ('2 - PLOSHAD KVADRATA');
writeln ('3 - OBIEM KYBA');
writeln ('0 - EXIT');
writeln('Viberite nomer menu');
readln(b);
case b of
1: d:=a*4;
2: d:=a*a;
3: d:=a*a*a; else exit;
end;
 
write(d);
end.

Код к задаче: «Организация меню с использованием цикла repeat - until - Pascal ABC»

textual
var
  d, b, a: integer;
 
begin
  repeat
    writeln('Vvedite storony');
    readln(a);
    writeln('1 - PERIMETR KVADRATA');
    writeln('2 - PLOSHAD KVADRATA');
    writeln('3 - OBIEM KYBA');
    writeln('0 - EXIT');
    writeln('Viberite nomer menu');
    readln(b);
    case b of
      1: d := a * 4;
      2: d := a * a;
      3: d := a * a * a;
    end;
    write(d);
  until b = 0;
end.

10   голосов, оценка 3.800 из 5


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