Помогите написать программу на Паскале

лови

var x, y, z : integer;
ff : boolean;
begin
write('Input X:');
readln(x);
y := -1;
ff := true;
while x <> 0 do begin
z := x mod 10;
if y = -1 then y := z;
if y <> z then ff := false;
y := z;
x := x div 10;
end;
if ff then write('Ok')
else write('No');
end.

если все цифры одинаковы то выведет Ok иначе No

mod это остаток от деления, ну а на 10 это последний символ
div это целая часть от деления. .
т. е. мы слева направо смотрим цифры у числа и сравниваем две рядом стоящие, если хотябы одна не совпадает то всё пропало)))

var k:string; n:longint; i,m:integer;
begin
write('Number? '); readln(n);
str(n,k); m:=0;
for i:=1 to length(k) do if k[1]=k[ i] then inc(m);
if m=length(k) then writeln('yes') else writeln('no');
readln
end.

А язык Delphi, конечно, возник из Pascal и похож на Pascal, но все же не стандартный Pascal.

Ну, если с точки зрения Delphi, то можно так:
...
var
i,n,k: Integer;
s: String;
begin
n:=<Число>;
k:=0;
s:=IntToStr(n);
for i:=1 to Length(s) do if s[1]=s then Inc(k);
if k=Length(s) then ShowMessage('Все числа одинаковы') else ShowMessage('Не все числа одинаковы');
end;

Так каникулы у всех. )))

var
i,n,k: Integer;
s: String;
begin
n:=<Число>;
k:=0;
s:=IntToStr(n);
for i:=1 to Length(s) do if s[1]=s then Inc(k);
if k=Length(s) then writeln('Все числа одинаковы') else writeln('Не все числа одинаковы');
end;