Paskal дано вещественное число r, (0< =r< 100) с не более чем двумя значащами цифрами после десятичной точки. считаем, что r обозначает денежную сумму в рублях. вывести на экран правильно согласованную фразу, обозначающую r, в виде "x рублей y копеек"(например, чмсло 22.21 должно быть выведено в виде "22 рубля 21 копейка"

Код в загруженном файле

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

type
  tCar=record
    brand:string;
    cost:real;
  end;
 
begin
  var a:=new tCar[4];
  for var i:=0 to 3 do begin
    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
    end;
 var m:=a.Select(t->t.cost).Average;
 var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
 Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.