Напишите наибольшее число х, для которого истинно высказывание: НЕ (x > 55) И НЕ (в в числех есть одинаковые цифры)

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

пусть х(мин)-потратела времени на выполнение д/з вчера

имеем уравнение:

х+х-10=60

2х=60+10

2х=70

х=70/2

х=35

35(мин)-потратела времени на выполнение д/з вчера