Определить все простые числа в интервале.

var k,i,kol : longint;
 
 st : string;
begin
 
readln(st);
 
st := st + ' ';
k := length(st);
for i := 1 to k-1 do
if ((st[i] <> ' ') and (st[i+1] = ' ')) then inc(kol);
 
 
writeln(kol);
 
end.

const
   maxP=305;
var m,n,i:longint;
   primes:array[0..maxP]of longint;
   index,maxindex:integer;
   curprime,absent:boolean;
 
function isPrime(n:longint):boolean;
var
  i:integer;
begin
 isPrime:=false;
 for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then
  exit;
  isPrime:=true;
end;
 
 
begin
   readln(m,n);
   index:=0;
   i:=2;
   while true do begin
      if isPrime(i) then begin
         inc(index);
         primes[index]:=i;
         if index=maxP then
            break;
      end;
      inc(i);
   end;
   maxindex:=0;
   while sqr(primes[maxindex+1])<=m do
      inc(maxindex);
   absent:=true;
   for i:=m to n do begin
      curprime:=true;
      for index:=1 to maxindex do
         if i mod primes[index]=0 then begin
            curprime:=false;
            break;
         end;
      if curprime then begin
         writeln(i);
         absent:=false;
      end;
      if sqr(primes[maxindex])<=i then
         inc(maxindex);
   end;
   if absent then
      writeln('На промежутке простых чисел нету');
end.

var n,i,max,a:longint;
begin
  read(n);
  read(a);
  max:=a;
  for i := 2 to n do
  begin
    read(a);
    if max<a then max:=a;
  end;
  writeln(max);
end.

function sum(a:longint):longint;
var st:string; i,kod,s,n:longint;
begin
  str(a,st);
  for i := 1 to length(st) do
  begin
    val(st[i],n,kod);
    s:=s+n;
  end;
  sum:=s;
end;

var st:ansistring; n,i,kod,kol:longint;
    f:text;
begin
assign(f,'one');
reset(f);
readln(f,st);
close(f);
for i := 1 to length(st) do
begin
  if st[i] in ['0'..'9'] then
  begin
    val(st[i],n,kod);
    kol:=kol+n;
  end;
end;
writeln(kol);
end.

var n,i,max,a:longint;
begin
  read(n);
  read(a);
  max:=a;
  for i := 2 to n do
  begin
    read(a);
    if max<a then max:=a;
  end;
  writeln(max);
end.