10 lines
176 B
ObjectPascal
10 lines
176 B
ObjectPascal
// Условный оператор. Полная форма
|
|
var
|
|
x: integer := 5;
|
|
y: integer := 3;
|
|
|
|
begin
|
|
if x<y then
|
|
writeln(x,'<',y)
|
|
else writeln(y,'<',x);
|
|
end. |