N1=28x8=224
N2=(28+11)x8=312
<span>N2-N1=312-224=88</span>
Var a,k,b,c:longint;
begin
read (a);
k:=a div 100;
b:=a div 10 mod 10;
c:=a mod 10;
if ((k>b) and (k>c)) then writeln (k) else
if ((b>k) and (b>c)) then writeln (b) else
if ((c>b) and (c>k)) then writeln (c);
<span>end.</span>
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.