cho 5 số trên một dòng được nhập từ bàn phím. In ra YES nếu có 4 số bằng nhau. In ra NO ngược lại. Giả bằng pascal nh

Program baitap;

Uses crt;

Var a,b,c,d,e:extended;

Begin

Clrscr;

Write('Nhap 5 so bat ki:'); 

Read(a,b,c,d,e);

If (a=b) and (b=c) and (c=d) and (d=e) then writeln('YES')

Else writeln('NO');

Readln

End.

uses crt;
var i,dem,j,tam:longint;a:array[1..5]of longint;
begin
 clrscr;
  for i:=1 to 5 do
        begin
         write('nhap so thu ',i,':');readln(a[i]);
        end;
  for i:=1 to 5-1 do
   for j:=i+1 to 5 do
    if(a[i]>a[j])then
        begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
        end;
  if(a[1]=a[2])and(a[2]=a[3])and(a[3]=a[4])or(a[2]=a[3])and(a[3]=a[4])and(a[4]=a[5]) then write('yes')else write('no');
 readln;
end.