Помогите решить задачу в паскале, только с полным решением. Первая бригада…

var t1,A,proiz1: integer; t2,B,proiz2: integer; beginwriteln ('Введите время и площадь первой бригады'); readln (t1,A); writeln ('Введите время и плозадь второй бригады'); readln (t2,B); proiz1: =t1*A; proiz2: =t2*B; if (proiz1>proiz2) thenwriteln ('Производительность первой бригады выше на ', proiz1-proiz2) elsewriteln ('Производительность второй бригады выше на ', proiz2-proiz1); end.