var a,b:real;
begin
write("Vvedite chisla: ");
read(a,b);
write("Bolshee chislo: ");
if a>b then write(a) else write(b);
readln
end.
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
Извини здесь не получиться написать посмотри примеры в учебнике
Задача сделана на языке паскаль, при помощи PaskalPlus
Оформление сделана как студенческой задачи
Если есть вопросы пиши в личку