Написать блок-схему и программу вычисление периметра прямоугольника

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

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.