Програма, яка працює так, що при введенні трьох слів, вони виводяться в алфавітному порядку:
program slovo;
var a,b,c: string;
begin
writeln ('vvedit tri slova');
readln (a);
readln (b);
readln (c);
if (a>=b) and (b>=c) then
writeln (c, ',',b, ',', a);
if (a>=c) and (c>=b) then
writeln (b, ',',c, ',', a) ;
if (b>=a) and (a>=c) then
writeln (c, ',',a, ',', b) ;
if (b>=c) and (c>=a) then
writeln (a, ',',c, ',', b) ;
if (c>=b) and (b>=a) then
writeln (a, ',',b, ',', c) ;
if (c>=a) and (a>=b) then
writeln (b, ',',a, ',', c) ;
readln
end.