Девочка получила 5 оценок, за каждую оплата х*10 рублей. сколько она получит рублей? Паскаль программа напишите пожалуйста,даю 98 БАЛЛОВ.

var x,i,summ: integer;

begin

read(x);

for i:=1 to 5 do

summ:=summ+(x*10);

writeln('Девочка получила - 'summ);

end.