Var a, s: double;
begin
readln(a);
s += 50 * a;
writeln('50 по ', s, 'p.');
s += (200 - 50) * (a + a / 100 * 20);
writeln('Остальные по ', (200 - 50) * (a + a / 100 * 20), 'p.', #13, s, 'р. всего');
<span>end.</span>
Информация - сведения об окружающем мире.
Это основное определение, приведите сами утверждения, а то некорректный вопрос получается :(
Мультимедийный файл у станавливает графический редактор
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?