Напишите программу которая определяет Верно ли что введенное число состоит из одинаковых цифр
Паскаль

У меня выводит что нужно do перед :=

Где s:=0

Единственный минус у Вас в программе - она не работает с отрицательными числами

var z,a,s:integer; beginreadln(z) a:=z mod 10; z:=z div 10; s:=0; while (z>0) and (s=0) do if z mod 10<>a then s:=1 else z:=z div 10; if s=0 then write ('yes') else write('no'); end.