Модуль 3, задание 6.

program p2; program-стандартное начало, p2- название программы
var x,y,z,a,b:real; var - раздел описания пер-ных, х,y,a,b-переменные, real-тип
begin begin - начало программы
write('x='); write - вывод данных на экран, 'x='-это появится на экране
readln(x); readln-ввод данных с переносом строки, x-вводимое значение
write('y='); аналогично
readln(y); аналогично
write('z='); аналогично
readln(z); аналогично
if x<=z then a:=5*arctan(z) пошло ветвление if-если x меньше\равен z тогда перем.
else b:=(3*(x-y))/(sqr(z)+sqr(x)); a присваевается значение, иначе b присваев. знач
writeln('A=',a); writeln- выести на экран с переносом строки A=значение а
writeln('B=',b); аналогично
end. конец