Информатика 9 класс

Написать программы на языке паскаль для решения следующих задач.

1. Известен результат спортсмена в беге на 100 метров. Определите установил ли он мировой рекорд если на момент забега мировой рекорд составляет 8 с

2. Даны координаты точки. Определить, находится ли она в lll четверти ​

1)

var time: real;

begin

write('введите время забега за 100 метров');

readln(time);

if (time < 8) then writeln('новый мировой рекорд')

else writeln('мировой рекорд не удалось преодолеть');

end.

2)

var x, y: real;

begin

write('введите координаты точки');

readln(x, y);

if (x < 0 and y < 0) then writeln('точка лежит в 3 четверти')

else writeln('точка лежит в другой координатной четверти');

end.