type Turburo = class
country, date:string;
duration, ex_price, putevka, kol_tourists, total_price: integer;
ex: boolean;
procedure create;
end;program Z33;
var
max, x1, min, x, k: integer;
begin
max := 1000;
min := 9999;
for x := 1000 to 9999 do
begin
x1 := x;
k := 1;
while x1 div 3 >= 2 do
begin
Inc(k);
x1 := x1 div 3;
end;
if k = 8 then
begin
if (x mod 5 <> 0) and (x mod 7 <> 0) and (x mod 11 <> 0) then
begin
if min > x then
min := x;
if max < x then
max := x;
end;
end;
end;
Writeln(min, ' ', max);
end.Procedure Val(S: String; var A: real; var Error: Integer);type MyArrayType = array [1..SizeArray, 1..SizeArray] of string[1];type MyArrayType = array of array of Char;
IMAGE_SECTION_HEADER = packed record
Name : packed array [0..IMAGE_SIZEOF_SHORT_NAME-1] of Char;
PhysicalAddress : DWORD; // or VirtualSize (union);
VirtualAddress : DWORD;
SizeOfRawData : DWORD;
PointerToRawData : DWORD;
PointerToRelocations : DWORD;
PointerToLinenumbers : DWORD;
NumberOfRelocations : WORD;
NumberOfLinenumbers : WORD;
Characteristics : DWORD;
end;
PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;