Turbo Pascal: Компания по снабжению электроэнергией взимает плату с клиентов по тарифу: -7р. за 1 кВт/ч за первые 250 кВт/ч -17 р. за кВт/ч если потребление свыше 250, но не превышает 300 кВт/ч -20 р. за кВт/ч, если потребление...

var n,cost: real; begin   writeln('Введите, сколько кВт/ч клиент израсходовал');   readln(n);   if n<=250 then begin cost:=7*n; writeln('Плата равна: ',cost); end;   if (n>250) and (n<=300) then begin cost:=17*n; writeln('Плата равна: ',cost); end;   if n>300 then begin cost:=20*n; writeln('Плата равна: ',cost); end; end.