помогите написать задачу в делфи

Question

Вводятся веса четырех мешочков. Необходимо определить и вывести номера мешочков, имеющих одинаковый вес.

Timur Yusifov · Accepted Answer

program Meshochki; 
($apptype console) 
begin 
 WriteLn('Вводятся веса четырех мешочков. Необходимо определить и вывести номера мешочков, имеющих одинаковый вес''); 
 ReadLn; 
end;

Андрюха · Answer

КОД: 
Program qq; 
....
 
begin 
write('meshok1: ');readln(a[1]); 
write('meshok2: ');readln(a[2]); 
write('meshok3: ');readln(a[3]); 
write('meshok4: ');readln(a[4]); 
 
for i:=1 to 3 do begin 
if a=a[i+1] then writeln('№',i); 
end; 
readln; 
end. 
как то так поробуй на консольном режиме 
 
(file-new-other-console application)

Екатерина · Answer

Ввод-вывод делай сам, вот движок: 
 
for j:=1 to 3 do 
for k:=j+1 to 4 do 
if meshok[k]=meshok[j] then 
writeln(k,j);