Данные числа с и d являются соответственно квадратом и кубом числа а — Pascal(Паскаль)

var
a,b,c,d:integer;
begin
    writeln('Vvedite chisla');
    readln(a,c,d);
    writeln('Itog');
    if (a*a=c)and(a*a*a=d)then writeln('yes')else writeln('no');
end.