Встречено 'else', а ожидался оператор(в чём ошибка) var a: integer; begin writeln ('введите число'); readln(a); if a mod 2=0 then writeln('число чётное'); else writeln('число нечётное'); readln; end.

Как и говорил, убираем ";" после последнего оператора до else

var a: integer;

begin

Writeln ('Введите число');

readln(a);

if a mod 2=0

then

Writeln('Число чётное')

else

Writeln('Число нечётное');

readln;

end.

Виртуальное общения - знакомая ситуация для нашего времени. Люди знакомится в социальных сетях, общаются, иногда встречаются реальной жизни.
Это может быть полезным - пообщаться с человеком, который тебя не знает, услышать его непредвзятое мнение. Сеть дает расслабиться.
Ты можешь быть кем угодно, с какой угодно внешностью и характером.
Это дает свободу мошенникам и разнообразным шутникам, которым нечего делать, кроме как издеваться над людьми. В этом заключается вред виртуального общения - ты не знаешь с кем переписываешься.
Я не против такого общения, но нужно быть осторожным.

Var
   a,b,d,K,kp:integer;
   P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
   Begin
   kp:=2;
   Write(2,' ',3)
   end
else if a = 3 then
        Begin
        kp:=1;
        Write(3);
        End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
   Begin
   K:=Trunc(Sqrt(A));
   d:=3;
   P:=true;
   While d <= K do
      Begin
      if A mod d = 0 then P:=false;
      d:=d+2
      End;
   if P then
      Begin
      kp:=kp+1;
      Write(' ',a);
      End;
   a:=a+2
   End;
if kp = 0 then Write(0)
End.