Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.
B := a * a; // a^2
c := b * b; // a^4
d := c * c; // a^8
----------------------
e := c * b; // a^10
ЭТО ОБЫЧНЫЙ КАЛЬКУЛЯТОР,ТОЛЬКО ТАМ КРОМЕ +,- И * ЕСТЬ МНОГО ДРУГИХ ДЕЙСТВИЙ...НАПРИМЕР,ВОЗВЕДЕНИЕ N в степень...