Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...
<span>var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end<span>.
Пример:
</span><span>n = 121
Перевертыш</span></span>
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;