В! известно, что покупатель приобрел а кг яблок по цене в руб. и с кг груш по цене d руб. покупатель имеет s рублей. напишите программу, которая определяет, хватит ли у покупателя средств на данную покупку?

Program one; var s,a,b,c,d,m: real; begin writeln('введите  цену  яблок  ,  груш '); readln(s,a); writeln('введите  кол-во  яблок  ,  груш  в  кг  '); readln(b,c); m: =(a*b)+(c*d); if s > = m then writeln('денег хватит',m) else writeln('денег не хватит'); end.

Program cena; uses crt; var s,a,b,c,d,su: real; begin clrscr; writeln('cymma kotopaya ectb y pokypatelya: '); read(s); writeln('ckolko priobel yablock (kg): '); read(a); writeln('cena yablock: '); read(b); writeln('ckolko priobrel grush(kg): '); read(c); writeln('cena grush: '); read(d); su: =(a*b)+(c*d); if s > = su then writeln('dannoy summu hvatit dlya etoy pokypki, vsego za pokupku ',su) else writeln('etoy symmu ne hvatit dlya pokupki'); end.

Var   pr: set of 1..20;   x: integer; begin   pr : = [1, 2, 3, 5, 7, 11, 13, 17, 19];   writeln('вводите целые числа от 1 до 20, выход по 99');   repeat       write('число ');       readln(x);       if x < 21 then           if x in pr then writeln('простое')           else writeln('не простое')   until x = 99 end. тестовое решение: вводите целые числа от 1 до 20, выход по 99 число 18 не простое число 3 простое число 15 не простое число 23 число 19 простое число 99

Var   u7, d7, v7, s7: array[1..7] of real;   i: integer;   s: real; begin   writeln('вводите температуры за утро, день и вечер');   s : = 0;   for i : = 1 to 7 do   begin       write(i: 1, ': ');       readln(u7[i], d7[i], v7[i]);       s7[i] : = (u7[i] + d7[i] + v7[i]) / 3;       s : = s + s7[i]   end;   s : = s / 7;   writeln;   writeln('средние температуры по дням недели: ');   for i : = 1 to 7 do       write(s7[i]: 0: 1, ' ');   writeln;   writeln('средняя температура за неделю: ', s: 0: 1) end. тестовое решение: вводите температуры за утро, день и вечер 1: 19.6 24.8 17.3 2: 16.8 22.3 18.1 3: 15.9 24.2 19.0 4: 18.5 26.8 20.3 5: 19.2 25.6 21.7 6: 19.0 23.7 20.1 7: 18.8 23.9 19.5 средние температуры по дням недели: 20.6 19.1 19.7 21.9 22.2 20.9 20.7 средняя температура за неделю: 20.7