<span><em>Pascal ABC</em>
var x:integer;
begin
writeln ('Введите четырёхзначное число');
readln(x);
if (x div 1000 <> 0) and (x div 10000 = 0) then begin
if ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) then
writeln ('Является перевёртышем') else
writeln ('Не является перевёртышем');
end else writeln ('Неверный ввод');
end.
</span><span>
</span>
Понятие - логически оформленная общая мысль о предмете, идея чего-н.
Суждение - форма мышления, в которой что-либо утверждается или отрицается о предмете, его свойствах или отношениях между предметами.
Умозаключение - форма мышления, посредством которой получают новое суждение на основе одного или более уже принятых суждений
Напиши про какую комбинацию клавишь на клаве надо нажать,чтобы получилось что-то и т.д.типа контр+альт+делит=диспетчер задач)
A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.