var a: integer;
begin
    write ('Введите число:');
    readln (a);
    if a > 0 then
        writeln ('Число больше нуля.')
    else if a < 0 then
        writeln ('Число меньше нуля.')
    else if a = 0 then
        writeln ('Число равно нулю.');
end.



var a, b, c: integer;
begin
    writeln ('Введите три числа');
    readln (a, b, c);
    writeln ('Наибольшее число: ');
    if (a>b) and (a>c) then
        writeln(a)
    else if (b>c) and (b>a) then
        writeln (b)
    else if (c>a) and (c<b) then
        writeln (c);
end.