Программирование в Pascal ... Хочу создать программу которая считает площадь фигур ......

Question

Программирование в Pascal ... Хочу создать программу которая считает площадь фигур ... Сначала она запрашивает какую фигуру нужно посчитать и записывается в "а" , потому в зависимости от значения а должны выполнятся следующие действия ... Как это сделать? Вот мой код , пробывал через if a then и через case a of
Вот код ( который остался ):
Program s;
uses crt;
var b,c,d: real;
a: integer;
label m;
begin
m:
clrscr;
Write('Выберите фигуру(1-Квадрат,2-прямоугольник)');
readln(a);
case a of
1: write('Сторона квадрата=');
readln(b):
d:=b*b;
Write('S=',d):
goto m;
end;
end.

Comments

ну вообще goto использовать весьма не рекомендуется

Answer 1

Uses crt;
var
    b, a: real;
    n: integer;

begin
    clrscr;
    repeat
        Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
        Readln(n);
        
        case n of
            1:
                begin
                    write('Сторона квадрата=');
                    readln(a);
                    Write('S=', a * a);
                end;
            2:
                begin
                    write('Стороны прямоугольника=');
                    readln(b, a);
                    Write('S=', b * a);
                end;
        else exit;
        end;
    until false;
end.