Определить можно ли купить 3 товара на некую сумму денегвходные данные: цены товаров-с1, с2, с3 и сумма денег-s)паскаль.

Var c1,c2,c3,s: integer; ну или другой тип, если не целые числа begin writeln("введите цену 1го товара "); readln(c1); writeln("введите цену 2го товара "); readln(c2); writeln("введите цену 3го товара "); readln(c3); writeln("введите сумму"); readln(s); if (c1+c2+c3< =s) then writeln("денег хватает") else writeln ("денег не хватает"); end.

Program chet_nechet;   const n=20;   type mas=array[1..n] of integer;   var i,k,sum,sum2,sr: integer; a: mas;   begin  sum: =0;   sum2: =0;   k: =0;   write('массив: ');   for i: =1 to n do  begin  a[i]: =random(100);   write(a[i],' ');   if a[i] mod 2=0 then begin k: =k+1; sum2: =sum2+a[i]; end                  else sum: =sum+a[i];   end;   writeln();   writeln('сумма нечётных чисел=',sum);   write('среднее арифметическое четных чисел=',sum2/k: 0: 2);   end.  если нужно что-то объяснить, то

Var     a,b,d,k,kp: integer;     p: boolean; begin kp: =0; readln(a,b); if (a = 1)or(a = 2) then     begin     kp: =2;     write(2,' ',3)     end else if a = 3 then               begin               kp: =1;               write(3);               end; if a < 5 then a: =5 else if a mod 2 = 0 then a: =a+1; while a< =b do     begin     k: =trunc(sqrt(a));     d: =3;     p: =true;     while d < = k do           begin           if a mod d = 0 then p: =false;           d: =d+2           end;     if p then           begin           kp: =kp+1;           write(' ',a);           end;     a: =a+2     end; if kp = 0 then write(0) end.