СРОЧНО!!!!СРОЧНО!!!!!!ОЧЕНЬ!!!!ОЧЕНЬ!!!!!
написать программу на паскале которая печатает первую и последнюю цифру 4-х значного числа, сравнивает их и печатает какое из этих двух цифр больше

varx:integer;beginRead(x);Writeln(x div 1000, ' ', x mod 10);if x div 1000 > x mod 10 then Writeln(x div 1000, ' - больше');if x div 1000 < x mod 10 then Writeln(x mod 10, ' - больше');if x div 1000 = x mod 10 then Writeln('Они равны');end.Пример:12341 44 - больше

//PascalABC.NET//Версия 3.3, сборка 1611beginvar a:=ReadInteger('Введите число').ToString();var (d1,d4):=(a[1].ToDigit(),a[4].ToDigit());writeln('первая: ',d1,'; четвертая: ',d4);if d1>d4 then write ('больше ',d1) else if d1<d4 then write('больше ',d4) elsewrite('цифры равны: ',d1);end.