Ответ:
program test;
var a,b,c:real;
begin
readln(a,b);
if (a>b) then
begin
c := a+b;
writeln('Итоговое значение с = ', c);
end;
if (a=b) then
begin
writeln('Одинаковые значения!');
end;
end.
Объяснение:
if (a>b) then <----------- Если <strong>а больше, чем б
begin <------ Начало</p>
c := a+b; <----- <strong>c присваивается значение суммы а и б
writeln('Итоговое значение с = ', c); <------ вывод значения c в консоль</p>
end; <------- Конец</p>
(Если а будет равняться б, то вывод в консоль будет такой)
if (a=b) then
begin
writeln('Одинаковые значения!');
end;