program dybko mode objfpc uses IFDEF UNIX IFDEF UseCThreads cthreads E

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program dybko;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var i,max:integer;
a:array[1..4] of integer;
begin
Writeln('Введите 4 элемента массива');
For i:=1 to 4 do begin
Readln (a[i]);
End;
max:=a[1];
For i:=2 to 4 do
if max <a[i] then
begin
max:=a[i];
end;
Writeln( 'Максимальный элемент массива равен ',max);
Readln ( );
end.