Составить алгоритм, переводящий скорость, выраженную в км/ч, в скорость, выраженную в м/с в программе QBasic

Задание №1
var
  a, b, n: integer;

begin
  readln(a, b);
  n := a - b;
  case n of
    1..65536: writeln('a>b');
    0: writeln('a=b');
  else writeln( 'a<b');
  end;
end.

Задание №2

var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    write('Вы родились в ');
    case a mod 12 of
        0: writeln('год Обезьяны.');
        1: writeln('год Петуха.');
        2: writeln('год Собаки.');
        3: writeln('год Свиньи.');
        4: writeln('год Крысы.');
        5: writeln('год Быка.');
        6: writeln('год Тигра.');
        7: writeln('год Кролика.');
        8: writeln('год Дракона.');
        9: writeln('год Змеи.');
        10: writeln('год Лошади.');
        11: writeln('год Козы.');
  end;
end.

PROFIT?

 

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.