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

program p2;
var x,y,z,a,b:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
write('z=');
readln(z);
if x<=z then a:=5*arctan(z)
else b:=(3*(x-y))/(sqr(z)+sqr(x));
writeln('A=',a);
writeln('B=',b);
readln
end.

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