Составить программу в pascal abc с клавиатуры вводят названия трех фигур, например: - ромб - квадрат - круг. составить программу, которая выводит на экран эти названия, например: “ фигуры: ромб, квадрат, круг”.

Var s1,s2,s3:string;
begin;
readln(s1);
readln(s2);
readln(s3);
writeln('Геометрические фигуры: ',s1,', ',s2,', ',s3,'.');
end.