Для швейної компанії розробіть проект із графічним інтерфейсом Залишок, за до якого користувач планового відділу буде визначати площу тканини, яка залишиться після того, як із заготовки у формі квадрата зі стороною а вирізали круг радіусом R. Перевірте виконання проекту для значень сторони і радіуса відповідно (4 м, 2 м). Орієнтовний зразок інтерфейсу:

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:integer;
  var x:real;
  while true do begin
    Write('Выберите тип единицы длины:',NewLine,
        '1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
    Read(r);
    if r=0 then begin Writeln('Пока!'); Exit end;
    Write('Введите длину в этой единице: '); Read(x);
    case r of
      1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
            x/10000,' км');
      2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
            x*1000000,' мм');;
      3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
            x/1000,' км');
      4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
            x/1000000,' км');
      5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
            x/100000,' км');
      end
    end
end.

Function MonthName(n) {
  var месяц;
  switch (n) {
    case 1: месяц = "январь"; break;
    case 2: месяц = "февраль"; break;
    case 3: месяц = "март"; break;
    case 4: месяц = "апрель"; break;
    case 5: месяц = "май"; break;
    case 6: месяц = "июнь"; break;
    case 7: месяц = "июль"; break;
    case 8: месяц = "август"; break;
    case 9: месяц = "сентябрь"; break;
    case 10: месяц = "октябрь"; break;
    case 11: месяц = "ноябрь"; break;
    case 12: месяц = "декабрь"; break;
    default: месяц = ""; break;
  }
  return месяц;
}