От 45 до 70 см
______________________
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>
If a=b
then a2=a*a;
if a>b
then a2=a+a;
Вы это имели ввиду?
открыть,изменит,создать,переименовать,копировать,создать ярлык,закрыть,свернуть,отправить,вырезать,удалить,свойства