Берешь один файл-смотришь размер
берешь другой файл-смотришь размер
сравниваешь
пишешь-какой файл больше
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>
после writeln() должно стоять ( ;)
и в конце не нужна readln
Если число оканчивается на ноль или пять,то оно кратно 5.
Так что,если в числе N на конце стоит 0 или 5,то сумма его цифр кратна 5.