Вычислить значение функции - PascalABC.NET (24603)

Формулировка задачи:

Вычислить значение функции Z при одном значении X: Z = Y2 + X2, где

Решение задачи: «Вычислить значение функции»

Листинг программы

program pr;
var
x,a1,a2,c:integer;
y,z:double;
begin
writeln('Введите х');
readln(x);
writeln('Введите c');
readln(c);
writeln('Введите a1 и a2');
readln(a1,a2);
if x<3 then
begin
y:=abs(x)+2;
end;
if x=3 then
begin
y:=x*x-a1;
end;
if (x>3)and (x<10) then
begin
y:=x-c;
end;
if x>=10 then
begin
y:=a2*a2;
end;
z:=y*y+x*x;
writeln('z: ',z);
end.

Объяснение кода листинга программы

Ввод значений переменных x, c, a1, a2 с помощью функции readln().
Присваивание значения переменной y в зависимости от значения x:
- если x < 3, то y = abs(x) + 2;
- если x = 3, то y = x * x - a1;
- если (x > 3) и (x < 10), то y = x - c;
- если x >= 10, то y = a2 * a2;
Вычисление значения переменной z как суммы квадратов y и x: z = y y + x x;
Вывод значения переменной z с помощью функции writeln().