program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
MAX = 1000;

var a,i,sum:integer;

begin
sum:=0;
for i := 1 to MAX-1 do
if (i mod 3 = 0)or(i mod 5 = 0) then sum:= sum+i;
WriteLn('SUM= '+IntToStr(sum));
Readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const MAX = 4000000;

var
i,value:integer;
_arr:Array[1..10000] of integer;
sum:LongInt;

begin
sum:=0;
i:=3;
_arr[1]:=1;
_arr[2]:=2;
while (_arr[i-1]+_arr[i-2]) < max do
begin
_arr[i]:=_arr[i-1]+_arr[i-2];
Writeln(IntToStr(_arr[i]));
Inc(i);
end;
Writeln('---');
value:=i;
for i := 1 to value do
if i mod 2 = 0 then
sum:=sum+_arr[i];
Writeln(IntToStr(sum));
Readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
MAX: UInt64 = 600851475143 ;

function IsSimpy(a:UInt64):Boolean;
var i: UInt64;
begin
Result := True;
if (a = 2) then exit;
i:= 2;
while i<>a-1 do
begin
if a mod i = 0 then
Begin
Writeln('Number '+IntToStr(a)+' is not simply');
Result:= False;
Break;
End;
i:=i+1;
end;
end;

var i:UInt64;
answer:UInt64;

begin
i:=2;
answer:=0;
while i<>MAX do
begin
if max mod i = 0 then
if IsSimpy(i) then
answer:=i;
i:=i+1;
end;
Writeln(FloatToStr(answer));
Readln;
end.