Найдите ошибку в Паскале? Что я сделал не так? И напишите ка нужно правильно.

Это неудачный троллинг, не ведитесь:)

Следуя твоему примеру - так 100% не работает xD

program label 3;
var
a; < r real of integer,
begin?
Insert(a,3,a/3);
with (a/3);
if (r > real)or(a < string) while
repeat ("no"))))
else for "yes" with(real);
end.

UPD: Держи. Без приколов - это то самое.

program q171080886;
var
 a, s: integer;
begin
 Write('A = ');
 ReadLn(a);
 s := 0;
 repeat
  s := s + (a mod 10);
  a := a div 10;
 until a = 0;
 if s mod 3 = 0 then
  WriteLn('Yes')
 else
  WriteLn('No');
 ReadLn;
end.

вообще бред какой-то

label 3; - нафига?
if r=real - эта ваще пять, адназначна

удали все, кроме begin и end. (с точкой) - ошибок не будет.
А если ты еще хочешь, чтобы эта программа что-то делала - то скажи нам, что, мы же не телепаты...

program zad1_3;
uses crt;
var x1,x2,x3,y1,y2,y3:integer;
a,b,c:real;
s,p:real;
begin
textBackGround(cyan);
clrscr;
textColor(yellow);
writeLn('treugolnik.in');
randomize;

1. Лейбл внутри блока кода должен быть, а не снаружи. И вообще лейбл - для слабаков, не используй его.
2. if (R = real) это что? Сравнение переменной с типом? :)

var
d:boolean;
a,b,c:integer;
c1,c2,c3:longint;
begin
read(c);
c3:=c mod 10;
c2:=(c mod 100) div 10;
c1:=(c mod 1000) div 100;
b:=c1+c2+c3;
a:=b mod 3;
c:=c mod 3;
d:=c=a;
if a=0 then
begin
if d then writeln('yes') else writeln('no');
end
else writeln('Введите другое число');
readln
end.