1. Составить программу, определяющую совпадают ли первая и вторая цифры трехзначного числа. и ещё 4 в пояснении

{
1)
var x: integer;
begin
write ('x = ');
readln (x);
if (x div 100) = (x mod 100 div 10) then
writeln ('Совпадают первая и вторая цифры')
else writeln ('Не совпадают первая и вторая цифры');
end.
}

{
2)
var x, y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
if x = y then writeln ('Числа равны')
else if x > y then writeln ('Первое число больше второго')
else writeln ('Второе число больше первого');
end.
}

{
2a)
var x, y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
writeln ('максимальное = ', max(x,y));
end.
}

{
3)
var i, x, mini: integer;
begin
i:=1;
while i <=5 do
begin
write ('x(',i,') = ');
readln (x);
if i=1 then mini:=x;
if x < mini then mini:=x;
i:=i+1;
end;
writeln ('Самый низкорослый = ', mini,' см');
end.
}

{
4)
var i, x, kolvo: integer;
begin
i:=1;
while i <=5 do
begin
write ('x(',i,') = ');
readln (x);
if x < 0 then kolvo:=kolvo+1;
i:=i+1;
end;
writeln ('количество отрицательных = ', kolvo);
end.
}

{
5)
var x1, x2, x3: integer;
begin
write ('x1 = ');
readln (x1);
write ('x2 = ');
readln (x2);
write ('x3 = ');
readln (x3);
if x3 < 0 then writeln ('ответ = ', x1*x2) else
if x3 = 0 then writeln ('ответ = ', (x1+x2)*(x1+x2)) else
writeln ('ответ = ', abs(x1-x2));
end.
}

{
5a)
var x1, x2, x3: integer;
begin
write ('x1 = ');
readln (x1);
write ('x2 = ');
readln (x2);
write ('x3 = ');
readln (x3);
case x3 of
-32768..-1: writeln ('ответ = ', x1*x2);
0: writeln ('ответ = ', (x1+x2)*(x1+x2));
1..32767: writeln ('ответ = ', abs(x1-x2));
end;
end.
}

1. var a, b:real;
begin
Readln(a, b);
If a>b then
Writeln('max=', a)
else if b>a the Writeln('max=', b)
else Writeln('Числа равны');
Readln;
end.
2.