В чом ошибка:
//fpc 3.0.0

program Fizika;
uses crt;
var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t :intenger;
begin
clrscr;
writeln('Введите число №1:');
readln (a);
writeln('Введите число №2:');
readln (b);
writeln ('1) Швидкість');
writeln ('2) Шлях');
writeln ('3) Час ');
writeln ('4) Густина ');
writeln ('5) Маса ');
writeln ('6) Обєм ');
writeln ('7) Висота ');
writeln ('8) Площа ');
writeln ('9) Сила тяжіння');
writeln ('10) Маса ');
writeln ('11) Прискорення вільного падіння ');
writeln('Введите число от 1 до 11:');
readln (NUM);
c:=a/b;
d:=c*b;
e:=d/c;
i:=a/b;
f:=i*b;
g:=f/i;
h:=a/b;
j:=a/h;
k:=a*b;
r:=k/b;
t:=k/r;
case NUM of
1:writeln ('Швидкість дорівнює:') (c) ('м/с');
2:writeln ('Шлях дорівнює:') (d) ('м');
3:writeln ('Час дорівнює:') (e) ('c');
4:writeln ('Густина дорівнює:') (i) ('кг/м3');
5:writeln ('Маса дорівнює:') (f) ('кг');
6:writeln ('Обєм дорівнює:') (g) ('м3');
7:writeln ('Висота дорівнює:') (h) ('м');
8:writeln ('Площа дорівнює:') (j) ('м2');
9:writeln ('Сила тяжіння дорівнює:') (k) ('Н');
10:writeln ('Маса дорівнює:') (r) ('кг');
11:writeln ('Прискорення вільного падіння дорівнює:') (t) ('Н/кг');
end;
readln
end.