Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.