Составить программу в паскаль: с клавиатуры вводятся стороны двух прямоугольников. определить площадь какого прямоугольника больше.

//Pascal ABC.NET v3.0 сборка 1111

Var
 a1,b1,a2,b2,s1,s2:integer;
begin
 read(a1,b1,a2,b2);
 s1:=a1*b1;
 s2:=a2*b2;
 if s1>s2 then write('Первый больше');
 if s1=s2 then write('Площади равны');
 if s1<s2 then write('Второй больше');
end.

Пример ввода:
1
2
3
4
Пример вывода:
Второй больше