program test;
var a,b,c:real;
begin
a:=28;
writeln('введите кол-во кг:');
readln(b);
c:=b*a;
writeln(c, 'рублей');
end.
program test;
var a,b,c:real;
begin
a:=28;
writeln('введите кол-во кг:');
readln(b);
c:=b*a;
writeln(c, 'рублей');
end.