Var a,b,c,x,a1,b1,c1:integer;
begin
writeln('Введите стоимость тетрадей');
readln(a1);
writeln('Введите кол-во тетрадей');
readln(a);
writeln(''Введите стоимость ручек');
readln(b1);
writeln('Введите кол-во ручек');
readln(b);
writeln('Введите стоимость карандашей');
readln(c1);
writeln('Введите кол-во карандашей');
readln(c);
x:=(a*a1)+(b*b1)+(c*c1);
writeln(x' руб.',);
end.
Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
Открываете Компьютер и там должно Дисковод DVD-RW (E:)
На него нажимаем, и там будет вся информация которая есть в диске.
var
i, n: integer;
a: array of integer;
begin
writeln('Введите число n: ');
readln(n);
SetLength(a, n);
writeln('Введите ', n, ' чисел: ');
for i := 0 to n - 1 do readln(a[i]);
writeln('Числа в обратном порядке: ');
for i := n - 1 downto 0 do write(a[i], ' ');
<span>end.</span>