Выражение A=′фрукт′A+′ы′=′фрукты′ —

строковое
логическое
арифметическое

Выражение строковое, потому что идут операции с символами.

Логическое выражение может принимать значения только 0 и 1.

Арифметические выражения выполняются с цифрами.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))