Question

№2 ПОМОГИТЕ,ПОЖАЛУЙСТА

С клавиатуры вводятся 2 числа. Четные необходимо возвестив квадрат, а нечетные удвоить.

на языке pascal написать программу


Program z1;

Var x,y:____integer________;

Begin

___readln___(x);

Y:=x div___2__;

If y>0 then writeln(‘трехзначное’) else writeln(‘двузначное’);

end.

правильно ли составлена программа?