Var
f1: text;
a,b: integer;
begin
assign (f1, '<file adress and name>');
read (f1, a,b);
close;
if a>b then writeln (a, '>', b)
else writeln (a, '<', b);
end.
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
Const
Pi = 3.141592;
var
R, S, L : Real;
begin<span>
</span> Write('Введите радиус круга: ');<span>
</span> ReadLn(R);
<span>
</span> S := Pi*sqr(R);<span>
</span> L := 2*Pi*R;
<span>
</span> Writeln('S круга: ', S:0:3);<span>
</span> Writeln('Длина окружности: ', L:0:3);<span>
</span> Readln;
end.
<span>1) 2000022 бит = 250002.75 байт = 244.14 Кбайт
2) 3</span>