1)Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического.
2)Вводятся величины X,Y целого типа. Написать программу для обмена значений величин. Необходимо использовать вспомогательную величину Т. Протестировать программу для X=5 и Y=-11.
3)Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0.
4)Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).
5)Дано двузначное число. Найти сумму и произведение его цифр.
Помогите, пожалуйста.
Ничего не понимаю по этому паскалю

Program xy;Var a, b, c, d:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третье число');readln(c);d:=sqr(b)-4*a*c;if d>0 then writeln('Уравнение имеет два корня');if d<0 then writeln('Уравнение не имеет корней');if d=0 then writeln('Уравнение имеет один корень');end.

1) Сейчас сделаю остальное.Program arifm;Var a, b, c, d, ar:real;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третье число');readln(c);writeln('Введите четвертое число');readln(d);ar:=(a+b+c+d)/4;writeln('Ответ:',ar);end.