Дан массив 50 чисел. От 0 до 50. Нужно написать программу, чтобы пользователь вводил 5 любых цифр от 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]<=50) and (b[1]>=0) then (if b[2]<=50) and (b[2]>=0) then

if (b[3]<=50) and (b[3]>=0) then if (b[4]<=50) and (b[4]>=0) then

if (b[5]<=50) and (b[5]>=0) then begin

bmin:=b[1];

for i:=2 to 5 do begin

if bmin > 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 > a[i] then cmin:=a[i];

end;

writeln(bmin, cmin);

end.