Все , сделайте программу на языке pascal прошу ! дано два числа х та у, які є відповідно абсцисою й ординатою деякої точки в декартовій системі координат. скласти програму для визначення, в якій координатній чверті розміщена ця точка.

program raf105;

var x,y,z: integer;

begin

write('x = ');

readln (x);

write('y = ');

readln (y);

if (x< 0) and (y> 0)  

  then z: =1;

if (x> 0) and (y> 0)  

  then z: =2;

if (x< 0) and (y< 0)  

  then z: =3;

if (x> 0) and (y< 0)  

  then z: =4;

if (x< > 0) and (y< > 0)

  then writeln('точка лежит в ',z,' четверти')

  else writeln('точка лежит в на пересечении четвертей');

end.

1. заражение компьютерными вирусами может произойти в процессе: в) работы с файлами2. производительность работы компьютера (быстрота выполнения операций) зависит от:   (b) частоты процессоpа (частоту процессора можно примерно соотносить с количеством операций в секунду. но все определяется не только частотой, но и архитектурой процессора: разные процессоры могут за один такт выполнять разное количество элементарных действий)3. принцип записи и считывания информации на жесткий диск основан на: в) намагничивании участков дисков (на отражении луча лазера основано действие оптических дисков - cd, dvd и т.д.)4. дефрагментация - это: а) перезапись данных в кластеры, последовательно идущие друг за другом5. выберите правильное описание пути к файлу: б) c: \games\chess\shess.txt (вообще, могут быть еще и а и в: никто не запрещает называть папки именами с точкой, а современные версии windows уменют распознавать пути как прямым слэшем, так и с обратным). 

//так и не осознала как вводить функции с клавиатуры. спрошу у учителя. var b1,b2,b: boolean; function imp(a, b : boolean) : boolean; begin imp: =(not a) or b; end; begin; writeln('implication'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: 7,imp(b1,b2): 7); writeln('not (x) or y'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: b1) or b2): 7); for b1: =false to true do for b2: =false to true do if imp(b1,b2)< > ((not b1) or b2) then   begin;   writeln('не эквивалентны');   exit;   end; writeln('эквивалентны'); end.