Program1.pas(13) : Нельзя преобразовать тип real к integer. Что не так ? program arif;
var a,b,c:integer;
d:real;
begin
writeln('Введи 2 числа');
readln(a,b);
c:=a+b;
writeln(a,'+',b,'=',c);
c:=a-b;
writeln(a,'-',b,'=',c);
c:=a*b;
writeln(a,'*',b,'=',c);
c:=a/b;
writeln(a,':',b,'=',с);
c:=a div b;
write(a,':',b,'=',c);
c:=a mod b;
writeln('и',c,'в остатке');
end.

Вы не указали на каком языке программирования это написать, поэтому я выбрал на своё усмотрение - c++.

#include <iostream>
#include <windows.h>
#include <math.h>
using namespace std;
int main ()
{    
double a,b;
cout << "enter a: ";
cin >> a;
cout << "enter b: ";
cin >> b;
if( (a-b)*(a+b) > fabs(a*a-2*a*b+b*b))
{
cout << " bolshe raznost kvadratov";
return 0;
}    
else    
{        
cout << " bolshe modul kvadrata raznosti";        
return 0;    
}    
return 0;
}

Вы не указали на каком языке программирования это написать, поэтому я выбрал на своё усмотрение - c++.

#include <iostream>
#include <windows.h>
#include <math.h>
using namespace std;
int main ()
{    
double a,b;
cout << "enter a: ";
cin >> a;
cout << "enter b: ";
cin >> b;
if( (a-b)*(a+b) > fabs(a*a-2*a*b+b*b))
{
cout << " bolshe raznost kvadratov";
return 0;
}    
else    
{        
cout << " bolshe modul kvadrata raznosti";        
return 0;    
}    
return 0;
}