Линейные Алгоритмы, Условный оператор (Delphi 7)

[Olesya2406]

1. Цифры данного трехзначного числа N являются членами арифметической прогрессии.
2. Рис расфасован в два пакета. Масса первого- m кг, второго -n кг. Составьте программу , определяющую: а) какой пакет тяжелее - первый или второй? б) массу более тяжелого пакета.

[Stilet]

Цифры данного трехзначного числа N являются членами арифметической прогрессии.

Класно! )

Рис расфасован в два пакета.

"Обалдеть, дайте две"

какой пакет тяжелее

Ну дык что сложного то?

var n.m:real;
begin
 readln(n,m);
 if n>m then write('Первый больше второго, его масса ',m) else write('наоборот, масса=',m);
end.