Составить программу для вычесления выражения. спросить числа a b c . 1)x=a+b: c^2 2) y=a^3+b^2-c: a×b×c

Var a,b,c:integer;
x,y:real;
begin
  Read(a,b,c);
x:=a+b/sqr(c); Writeln('x=',x); 
y:=a*a*a+sqr(b)-c/a*b*c;
Writeln('y=',y);
end.