program Fizika;
uses crt;
var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;
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 div b;
d:=c*b;
e:=d div c;
i:=a div b;
f:=i*b;
g:=f div i;
h:=a div b;
j:=a div h;
k:=a*b;
r:=k div b;
t:=k div 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;
end.