При подготовке к празднику комиссия предложила несколько вариантов наборов подарков, учитывая стоимость входящих в них предметов. Было закуплено 68 букетов цветов, 132 коробки конфет, 85 флаконов духов. Необходимо скомпоновать из закупленных подарков максимальное количество наборов.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

третье, там где пять

5> 4 и не 5> =6

var a, b, c: integer;

begin

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.

мне кажется в цифровом виде