Запиши те программу прошу С клавиатуры вводятся возраста трех человек: Светланы, Карины, Марины. Вывести возраст старшей, имя средней, возраст младшей из девочек. Записать условия

Var a, b, c:integer;

begin

writeln ('Введите возраст Светланы: ') ;

readln (a) ;

writeln ('Введите возраст Карины: ') ;

readln (b) ;

writeln ('Введите возраст Марины: ') ;

readln (c) ;

if ((a>b) and (a>c)) then writeln ('Светлана: ', a)

else if ((b>c) and (b>a)) then writeln ('Карина: ', b)

else if ((c>a) and (c>b)) then writeln ('Марина: ', c) ;

if ((a>c) and (c>b)) then writeln ('Марина: ', c)

else if ((c>b) and (b>a)) then writeln ('Карина: ', b)

else if ((b>a) and (a>c)) then writeln ('Светлана: ', a) ;

if ((a
else if ((b
else if ((c
end.