Пример решения задачи на Pascal:

program Squares;
var
a, b, c: real;
begin
// Ввод данных
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
write('Введите число c: ');
readln(c);
// Проверка условия и выполнение действий
if (a > b) and (b > c) then
writeln('a = ', a:0:2, ', b = ', b:0:2, ', c = ', c:0:2)
else
begin
a := sqr(a);
b := sqr(b);
c := sqr(c);
writeln('a = ', a:0:2, ', b = ', b:0:2, ', c = ', c:0:2);
end;
end.

Эта программа сначала просит пользователя ввести три действительных числа, затем проверяет условие a > b > c и в зависимости от этого либо оставляет числа без изменений, либо заменяет их на квадраты.