Помогите найти 5 ошибок
1 var
2 s : integer;
3 procedure pr;
4 var a, b, r :integer;
5 begin
6 write('введите стороны прямоугольника a, b: ');
7 readln(a, b);
8 r := a * b;
9 writeln('Площадь прямоугольника = ', r:0:2)
10 end;
11 procedure tr;
12 var a, b, c, r : real;
13 begin
14 write('введите стороны треугольника a, b, c: ');
15 readln(a, b, c);
16 p := (a + b + c) / 2; {полупериметр}
17 r := sqrt(p * (p - a) * (p - b) * (p - c));
18 writeln('Площадь треугольника = ', r:0:2)
19 end;
20 procedure kr;
21 var c, r : real;
22 begin
23 write('введите радиус круга c: ');
24 readln(c);
25 r := PI * sqr(c);
26 writeln('Площадь круга = ', r:0:2)
27 end;
28 repeat
29 writeln('Площадь какой фигуры нужно вычислить: ');
30 writeln('1 - Прямоугольник');
31 writeln('2 - Треугольник');
32 writeln('3 - Круг');
33 writeln('0 - Выход');
34 readln(s);
35 case s
36 1 : pr;
37 2 : tr;
38 3 : kr
39 else if s <> 0 then writeln('некорректный ввод')
40 until s = 0
41 end.