program p;
var s,a,b,c:string;begins:='геометрические фигуры';writeln('введите названия трёх геометрических фигур');read(a,b,c);writeln(s,': ',a,', ',b,' и ',c);end.
program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.