Помогите написать ** паскале 6.5

Question

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

---

Answer 1

uses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:'); readln(a);
k:=1;
for i:=2 to 18 do  begin  
readln(b);  
k:=k + ord(b=a);  
end;
write('Количество одинаковых в начале=',k);
readln
end.

Comments

это неправильно

---

надо написать через while и ord clrscr не должно быть