Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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
Пример вывода:
Второй больше