ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ

 Program P4; 
uses crt; 
var x, y: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры значения переменных x и y (только числа). После ввода значения каждой из переменных нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('Введите значение переменной x: x='); 
readln (x); 
if x=0 then writeln ('Ошибка: происходит деление на 0.') else begin 
   write ('Введите значение переменной y: y='); 
   readln (y); 
   writeln ('Ответ: z=', (15*sqr(y)-9*y+8)/(x+x+x+sqr(x)+sqr(x))-4 :0:2); 
   end; 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end. 

 Program P5; 
uses crt; 
var a, b, h: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры значения сторон параллелограмма и его высоты (только числа). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('Введите 1-ую сторону параллелограмма: a='); 
readln (a); 
write ('Введите 2-ую сторону параллелограмма: b='); 
readln (b); 
write ('Введите высоту параллелограмма: h='); 
readln (h); 
writeln ('Периметр параллелограмма: P=', a+a+b+b :0:2); 
writeln ('Площадь параллелограмма: S=', a*h :0:2); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.