Линейные алгоритмы.

procedure Form1.ButtonClick ();
var u,r1,r2,r3: integer; //входные данные
ur1,ur2,ur3: extended; //результаты
begin
r1:=StrToInt(Edit1.text);
r2:=StrToInt(Edit2.text);
r3:=StrToInt(Edit3.text);
u:=StrToInt(Edit4.text);
//делаем проверку
if (u<0) or (r1<0) or (r2<0) or (r3<0) then showmessage ('введены некоректные данные')
else
begin
   {тут вставляем формулы и вычисляем для цепи 0-r1, r1-r2,r2-r3-0}
end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,c,d,F:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var f1,f2,f3,f4,s1:real;
s:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=StrToInt(Edit4.Text);
F:=StrToInt(Edit5.Text);
s:=a+b+c+d;
s1:=F/s;
f1:=a*s1;
f2:=b*s1;
f3:=c*s1;
f4:=d*s1;
ShowMessage('1-'+FloatToStr(f1)+';'+#13+'2-'+FloatToStr(f2)+';'+#13+'3-'+FloatToStr(f3)+';'+#13+'4-'+FloatToStr(f4)+';'+#13);
 
end;
 
end.

ShowMessage('1-'+FloatToStrF(f1,fffixed,4,2)+';'+#13+'2-'+FloatToStrF(f2,fffixed,4,2)+';'+#13+'3-'+FloatToStrF(f3,fffixed,4,2)+';'+#13+'4-'+FloatToStrF(f4,fffixed,4,2)+';'+#13);

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var F,k1,k2,k3,k4: integer; //Входные параметры
s,s1: extended; // вспомогательные переменные
r1,r2,r3,r4: extended; //результат
begin
  Write ('Vvedite k-vo gektarov F=');
  Readln (F); //узнаем к-во гектаров в общем
 
  Write ('Vvedite k-vo ychenikov v 1 klasse - ');
  Readln (k1); //узнаем к-во учеников в 1 классе
 
  Write ('Vvedite k-vo ychenikov v 2 klasse - ');
  Readln (k2); //узнаем к-во учеников в 2 классе
 
  Write ('Vvedite k-vo ychenikov v 3 klasse - ');
  Readln (k3); //узнаем к-во учеников в 3 классе
 
  Write ('Vvedite k-vo ychenikov v 4 klasse - ');
  Readln (k4); //узнаем к-во учеников в 4 классе
 
  s:=k1+k2+k3+k4; //узнаем общее к-во учеников
 
  s1:=F/s; //узнаем к-во га на 1 ученика
 
  r1:=k1*s1; //определяем сколько га для 1 класса
  r2:=k2*s1; //определяем сколько га для 2 класса
  r3:=k3*s1; //определяем сколько га для 3 класса
  r4:=k4*s1; //определяем сколько га для 4 класса
 
  Writeln;
  Writeln ('***********************');
  Writeln ('*****RESULTAT**********');
  Writeln;
 
  Writeln ('1 klass - ', r1:4:2);
  Writeln ('2 klass - ', r2:4:2);
  Writeln ('3 klass - ', r3:4:2);
  Writeln ('4 klass - ', r4:4:2);
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var N,L: integer; //Входные параметры
m,k: extended; // вспомогательные переменные
r: extended; //результат
begin
  Write ('Vvedite k-vo shiriny polotna L=');
  Readln (L); //узнаем Ширину полотна
 
  Write ('Vvedite k-vo chasov N=');
  Readln (N); //узнаем к-во часов работы
 
 
  m:=N*60; //переводим часы в минуты
 
  k:=m/5; //узнаем к-во кв.м. выпущенных за заданное время
 
  r:=k/L; //узанем длину полотна при заданной ширине
 
  Writeln;
  Writeln ('***********************');
  Writeln ('*****RESULTAT**********');
  Writeln;
 
  Writeln ('Za zadannoe vremja vupystim poltno dlinoy -', r:4:2);
  Readln;
end.