Question

Разработайте программу которая запрашивает три строковые величины - взаимосвязанные прилагательное,существительное и глагол .а затем печатает все варианты фраз с использованием введенных слов

Answer 1

Var a,b,c:string;
begin
write('Введите галагол', ' ');
readln(a);
write('Введите прил.', ' ');
readln(b);
write('Введите сущ.', ' ');
readln(c);
writeln(b,' ',c,' ',a);
writeln(b,' ',a,' ',c);
writeln(a,' ',b,' ',c);
writeln(a,' ',c,' ',b);
writeln(c,' ',a,' ',b);
writeln(c,' ',b,' ',a);
end.