Напишите программу для вычисления значения арифметических выражений:

a=5*2x-z/3+y2 (y во второй степение)

var a, x, z, y: Integer;

begin

write ('Введите число x: ');

read (x);

writeln ('Введите число z: ');

read (z);

writeln ('Введите число y: ');

read (y);

writeln ('a = ',5*2*x-z/3 + (y*y));

end.