Program targil1 (input, output);
const n=40;
var
class:array {1..n} of integer;
counter,i,x:integer;
Begin
x:=100;
counter:=1;
for i:= 1 to n do
 begin
 if (class{i} < x) and (class{i} >0) then
   begin
   x:= class{i};
   counter:=1;
   end;
 if (class{i} = x) then
  counter:= counter+1;
   end;
end.


program targil2 (input,output);
const n=7;
var
mark:array {1..n} of integer;
i,x:integer;
avg1,avg2:real;
begin
avg1:=0;
for i:=1 to n do
 avg1:=avg1+mark{i};
x:=mark{1};
for i:=2 to n do
 if mark{i} <x then
 x:=mark{i};
avg2:=avg1-x;
avg1:=avg1/n;
avg2:=avg2/(n-1);
if avg2-avg1>0 then
 writeln ('משתלם');
if avg2-avg1<0 then
 writeln ('לא משתלם');
end.

program targil3 (input,output);
const n=20;
var
arr:array {1..n} of integer;
c,x,i:integer;
begin
c:=0;
writeln ('הכנס מספר');
readln (x);
for i:= 1 to n do
 if x = arr{i} then 
 begin  
  writeln (i);
  c:=c+1;
  end;
if c=0 then
for i:= 1 to n do
 if arr{i} > x then
 begin
 x:=i;
 i:=n;
 end;
end.