16 lines
290 B
Text
16 lines
290 B
Text
procedure main()
|
|
|
|
until integer(a) do {
|
|
writes("Enter the first integer a := ")
|
|
write(a := read())
|
|
}
|
|
|
|
until integer(b) do {
|
|
writes("Enter the second integer b := ")
|
|
write(b := read())
|
|
}
|
|
writes("Then ")
|
|
write(a," < ", a < b)
|
|
write(a," = ", a = b)
|
|
write(a," > ", a > b)
|
|
end
|