program ves;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b:integer;
begin
writeln('Vvedite ves pervogo paketa (v kg)');
readln(a);
writeln('Vvedite ves vtorogo paketa (v kg)');
readln(b);
if a>b then writeln ('ves pervogo paketa bolshe',', ego ves raven ',a,' kg')
else writeln ('ves vtorogo paketa bolshe',', ego ves raven ',b,' kg');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.