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

Question

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

Answer 1

//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 s1end.

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

Comments

Это и так полное решение.