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
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