С клавиатуры вводят название трёх геометрических фигур. Составить программу, которая выводит на экран эти названия, например: "геометрические фигуры: квадрат, ромб, круг".
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.
На Pascal:
Program Sonik;
Uses crt;
Var a,b,c:string;
Readln (a); Readln (b); Readln (c);
Writeln ('геометрические фигуры:',a,b,c);