составьте программу в паскале

[Liubov]

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая

[Liubov]

Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет (0- ни положительное, ни отрицательное число).

[Вадим Мошев]

if (!$n)
	echo 'Это нуль';
	
	else
		{
			if ($n > 0)
					echo 'положительное';
					
				else
					echo 'Отрицательное';
		};

Первая, я точно говорю.

[Reshebnik]

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая

Program qq;
uses crt;
var a,x,y:integer;
begin
clrscr;
Writeln(a);
readln(a);
x:=(a div 10);
y:=a mod 10;
if x>y then writeln('первое') else
writeln('второе');
readln;
end.

Написать программу, которая запрашивает ввод целого числа и выводит на экран сообщение, положительное это число или нет (0- ни положительное, ни отрицательное число).

program qq2;
uses crt;
var a:integer;
begin
clrscr;
textcolor(lightgreen);
writeln('введи целое число');
readln(a);
if a>0 then writeln('положительное) else
if a<0 then writeln('отрицательное');
readln;
end.