с клавиатуры вводят название трёх геометрических фигур. Составить программу, которая выводит на экран эти названия, например: "геометрические фигуры: квадрат, ромб, круг".

На Pascal:

Program Sonik;

Uses crt;

Var a,b,c:string;

Begin

Readln (a); Readln (b); Readln (c);

Writeln ('геометрические фигуры:',a,b,c);

End.

Program xxx;

  var a,b,c : string;

Begin

   write('введите название 1 фигуры-');

   readln (a); 

   write('введите название 2 фигуры-');

   readln (b); 

   write('введите название 3 фигуры-');

   readln (c);

   writeln ('геометрические фигуры:',a,b,c);

   readln

End.