Решить информатику. участок имеет форму прямоугольника со стороной r метров и площадью s м2. рассчитать, сколько потребуется пролетов забора для ограждения участка, если длина пролета составляет z метров.

Var r,s,z:integer;
r2,p,k:real;
begin
writeln('Введите r, s и z:');
readln(r,s,z);
r2:=s/r;
p:=2*(r+r2);
k:=p/z;
writeln('k = ',k);
end.

Пример:
Введите r, s и z:
4 20 2
k = 9

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.

Якось одного прекрасного ранку, хлопчик на ім'я Сашко, в перший раз пішов у школу. Все було так гарно, але на наступний день почалися вже уроки. Сашко раненько встав, почистив зуби, поїв і пішов у школу. Прийшов він школу, починає гратися з однокласниками, а тут вже дзвінок продзвенів. Діти забігли у клас, а вчитель каже: - Доброго ранку, діти! Сьогодні ваш перший урок буде Інформатика. Тоді Сашко про себе казав: - Напевно буде дуже цікаво. Тоді вчителька з дітьми пішла до кабінету Інформатики.. А там тільки комп'ютери. - Ого-го! - сказав Сашко.   Після уроку Інформатики, всім дітям так сподобалося, аж кричали: - Це наш улюблений урок! Тоді у Сашко з'явився перший улюблений урок!