Var a,b,c:integer; Begin readln(a); {сколько света нагорело} readln(b); {тариф на свет} c:=a*b; {сколько необходимо заплатить денег за a-света, по b-тарифу} writeln(c); End.
Var a,b:real; begin writeln('Сколько стоит электричество?'); read(a); writeln('Сколько показывает счетчик?'); read (b); writeln('Вам нужно заплатить ', a*b); end.
Begin
readln(a); {сколько света нагорело}
readln(b); {тариф на свет}
c:=a*b; {сколько необходимо заплатить денег за a-света, по b-тарифу}
writeln(c);
End.
Если я все правильно понял.
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает счетчик?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.