Написать на паскале программу для вычисления уравнения x^n+y^n x, n, y вводяться с клавиатуры

program zz1;

var x, n, y, d1, d2, i:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (n);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (y);

d1: = 1;

for i: = 1 to n do / / возводим х в степень n

d1: = d1 * x;

d2: = 1;

for i: = 1 to n do / / возводим у в степень n

d2: = d2 * y;

writeln (' найденная сумма = ', d1 + d2); / / выводим ответ

end.