Ответ:

var

a,b:integer;

begin

readln(a,b);

if a<b then

writeln(0.3*b)

else writeln(b+0.5);

end.

Объяснение:

Идея решения: заместо того, чтобы выполнять переприсваивания, мы сразу выдаём эти ответы. Если же всё таки понадобится переприсваивание до вывода, то тип данных надо будет поменять с integer(целые числа) на real(числа с дробной частью).