Программирование в 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.

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.