Ставте программу которая проверяте равны ли 3 введёных числа и выводит на экран соответствующее сообщение "равны" либо "не равны" надо завтра

Var      a,b,c : integer; begin     read(a,b,c);       if (a=b) and (a=c)         then writeln('равны')          else writeln('не равны'); end.

program halfsum

uses crt;  

var a,b,tmp: real;

begin 

      clrscr;

      write('введите первое число: ');

      readln(a);    

      write('введите второе число: ');

      readln(b);

      tmp: =(a+b)/2;

      a: =tmp;  

 

      writeln(' первое число после замены: ',a);  

    readkey;

 

end. 

 

 

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandomreal(readinteger('n=',99); a.println;   var x,y: real;   write('введите границы интервала для произведения: ');   read(x,y);   var p: =a.where(q-> (q> =x) and (q< =(1.0,(x,y)-> x*y);   writeln('p=',p) end. пример n= 10 11.0202379617934 -21.4386138983251 17.4840150235612 -92.4701039881772 8.05400941383746 -23.9996788990682 85.7269244402307 -27.4690603960627 -72.6577002609417 61.1870779274903 введите границы интервала для произведения: -20 30.8 p=1551.83047486587