Question

В чом ошибка:
//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.

Answer 1

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.