Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
function ReadInteger(prompt: string): integer; Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer; Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ' '): sequence of T; Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0); Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ' '): sequence of T;
Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется