Опишите константу x равную 10 и выведите на экран площадь вычисления x+10/2 *15/x-5 вычислите так же при x равном 20 и 45 паскаль

//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 ars:array of string;
 s,s1:string;
 min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
 begin
  readln(f,s);
  s1:=s;
  s:=s.Trim;
  i:=1;
  while i<>length(s) do
    if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
  if ((s.split).length<=min) and ((s.split).length<>0) then
  begin
   if (s.split).length=min then
    begin
     inc(n);
     setlength(ars,n);
     ars[n-1]:=s1;
    end
    else
    begin
     n:=1;
     setlength(ars,n);
     ars[n-1]:=s1;
    end;
    min:=(s.split).length;
   end;
  end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.

Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер                   шейкер
Содержимое файла text1.txt:
уличный
денсер

ответ:1.чтобы стать хорошим специалистом, надо для начала иметь терпение и трудолюбие. Нужна меткость, точность. Специалисты бывают разные, но всем им нужны эти качества. 2. Думаю, многие люди выбирают то, что выгодно им,выбираю себе лёгкую работу, при этом ничего не делая, оскорбляя других. Уже понятно что человек ленив,и самовлюблён. Конечно, его уволят, если узнают об этом. Давайте с вами представим, что человека которого я описал(а) выше, уволили. Что же будет? Он ищет лёгкую работу. Снова. Например, вор, киллер, и т.д. Вот и поэтому сложно быть человеком, примерно 69,2% людей, идут по этому пути. Сейчас, мир уже не тот, каким был в средневековье. Люди стали жестокими, самовлюблёнными, плохими.

Объяснение: надеюсь я ничего не упустила