begin
var (a,b):=ReadInteger2('Введите a,b->');
if a>b then Writeln(a,' больше.') else
if a=b then Writeln(a,' равно ',b) else Writeln(b,' больше.');
end.
Программа - pascal
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
var (a,b):=ReadInteger2('Введите a,b->');
if a>b then Writeln(a,' больше.') else
if a=b then Writeln(a,' равно ',b) else Writeln(b,' больше.');
end.
Программа - pascal