Ответ:

var c,k,n,s,p:integer;

Begin

read(n,k);

c:=n*k;

if c>1000 then p:=400 else

if c>600 then p:=200 else p:=100;

s:=c+p;

writeln(s);

end.

Объяснение:

Язык Pascal ABC