===== Современный PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите a и b:');
if a > b then
Print(a, b)
else
Print(b, a)
end.
===== Старенький Free Pascal =====
var
a, b: integer;
Write('Введите a и b: ');
Readln(a, b);
Write(a, ' ', b)
Write(b, ' ', a)
===== Turbo Pascal для современников мамонтов =====
program ABC;
uses Crt;
ClrScr;
Write(b, ' ', a);
ReadKey;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== Современный PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите a и b:');
if a > b then
Print(a, b)
else
Print(b, a)
end.
===== Старенький Free Pascal =====
var
a, b: integer;
begin
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a)
end.
===== Turbo Pascal для современников мамонтов =====
program ABC;
uses Crt;
var
a, b: integer;
begin
ClrScr;
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a);
ReadKey;
end.