1. Разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического.

Программа на языке Паскаль.

var

Form1: TForm1;

S : int64;

M₁, M₂, R, Р: integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

M₁ : = StrToInt (Edit1. Text); / / преобразуем текстовую переменную в тип integer

M₂: = StrToInt (Edit2. Text);

R : = StrToInt (Edit3. Text);

Р : = IntToStr (Edit4. Text);

S : = 0,25 * (M₁ + M₂ + R + Р); / / высмсление среднего арифметического 4 - х чисел

(Edit5. Text) : = StrToInt (S); / / вывод результатов вычисления с преобразованием данных в текст

end;

end.