Я надеюсь ты знаешь как открыть этот файл, в отличии как пишется TurboPascal.
Uses crt;
var a,b,c:integer;
begin
writeln('Vvedi a,b')
readln(a,b);
c:=a+b;
if (a>b) then
begin
b:=abs(a-b);
a:=c;
end
else if (a<b) then
begin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
<span>end.</span>
Var a,b,c:integer;
begin
write(' введите два различных числа');
read(a,b);
if a>b then c:=a else c:=b;
writeln('большее число =', c);
end.
???????????????????,????????????????