1. Найти частное от деления двух целых чисел.
2. Написать программу,которая проверяет, является ли введенное с клавиатуры целое число четным.
И объясните пожалуйста, с решениями.
А то я не понимаю ничего :с

1.var   x,y:integer;  z:real;beginwrite('Введите два числа: ');readln(x,y);z:=x/y;writeln('Их частное равно ',z)end.2.var x:integer;beginwrite('Введите число: ');readln(x);if (x mod 2=0) then writeln('Число четное')  else writeln('Число нечетное') end.