Какой ответ здесь получится?
a:=7;
b:=8;
k:=5*a;
if a>b then k:=k*3
else k:=k-3;
writeln (k);

0