дополнить программу Нужно чтобы после окончания работы программа спросила :
"Желаете ли вы закончить работу?"

Program ploshad;
var a,b,c:real;
begin
write('Введите значение a= ');
readln(a);
write('Введите значение b= ');
readln(b);
If (a<=0)or(b<=0) then
write('Сторона не может быть отрицательной, либо равна нулю')
else
c:=a*b;
writeln('Площадь квадрата, с заданными параметрами равна - ',c);
c:=a*b/2;
writeln('Площадь прямоугольного треугольника, с заданными параметрами равна - ',c);
repeat

 существуют две разновидности программы – более старая (2003 года и ранее) и более новая (2007-2010). Они несколько отличаются друг от друга, поэтому в этом уроке мы научимся вставлять таблицы и в более старой программе Word, и в современной. Но и в том, и в другом случае для начала нужно указать то место на листе, где должна быть таблица. То есть мигающий курсор (мигающая палочка) должна быть в том месте, куда Вы хотите вставить таблицу. чтобы сместить мигающий курсор вниз, нужно нажать кнопку Enter на клавиатуре. А чтобы поднять его выше – нажать Backspace (кнопку удаления). В программе Microsoft Word более старой версии (2003 года и ранее) для вставки таблиц есть специальный пункт в самом верху программы с правой стороны. Называется он «Таблица». А в программе Word более современной версии (2007-2010) для того, чтобы вставить таблицу, нужно нажать на надпись «Вставка» в левом верхнем углу программы. Когда Вы нажмете на эту надпись, появятся новые кнопки редактирования. Среди них есть кнопка (надпись) «Таблица». Если Вы нажмете на надпись (кнопку) «Таблица», откроется список, в котором программа Word предлагает несколько вставки таблиц. Для начала поговорим о классическом Вставить таблицу...» (Вставить – Таблица). Нажмите на пункт «Вставить таблицу...» (Вставить – Таблица) – откроется небольшое окошко. В верхней части этого окошка нужно напечатать, сколько столбцов и строк должно быть в нашей таблице. Я, например, указал три столбца и четыре строки. Также обратите внимание на нижнюю часть окошка. Точка должна стоять на пункте «Постоянная», и в соседнем белом поле должно быть указано значение «Авто». Другие настройки ширины столбцов применяются крайне редко, в исключительных случаях, и рассматривать их в рамках данного урока мы не будем. И, наконец, нажмите на кнопку ОК. Таблица с указанным нами количеством столбцов и строк должна вставиться в документ (на лист). В моем случае вставилась вот такая таблица:

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково