Блок-схема - в прилагаемом файле.
var a:integer;
begin
write('a = ');
readln(a);
writeln('-(a-3) = ',-(a-3));
writeln('(2*a-10) = ',2*a-10);
if -(a-3)>(2*a-10)
then writeln(-(a-3),' > ',(2*a-10))
else writeln((2*a-10),' > ',-(a-3));
end.
Пример:
a = 5
-(a-3) = -2
(2*a-10) = 0
0 > -2
