Дан массив 50 чисел. От 0 до 50. Нужно написать программку,

var a:array[0..50] of integer;

for b:array[1..5] of integer;

c:array[1..26] of integer;

i, bmin, cmin:integer;

begin

for i:=0 to 50 do a[i]:=i;

writeln(Введите 5 чисел);

for i:=1 to 5 do readln(b[i]);

if (b[1]lt;=50) and (b[1]gt;=0) then (if b[2]lt;=50) and (b[2]gt;=0) then

if (b[3]lt;=50) and (b[3]gt;=0) then if (b[4]lt;=50) and (b[4]gt;=0) then

if (b[5]lt;=50) and (b[5]gt;=0) then begin

bmin:=b[1];

for i:=2 to 5 do begin

if bmin gt; a[i] then bmin:=a[i];

end;

writeln(Введите 26 чисел);

for i:=1 to 26 do readln c[i];

cmin:=c[1];

for i:=2 to 5 do begin

if cmin gt; a[i] then cmin:=a[i];

end;

writeln(bmin, cmin);

end.