Помогите решить задачу в паскале, только с полным решением. первая бригада маляров за t1 час покрасили А м3. а вторая бригада за t2 часа покрасила В м3. у какой бригады производительность выше и на сколько

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