Ответ:
1) Пурпурный (похож на розовый)
2) Желтый
Объяснение:
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
case number mod 10 of
1: writeln(number, ' рубль');
2, 3, 4: writeln(number, ' рубля');
else
writeln(number, ' рублей')
end;
readln;
end.
Не будут. Потому что РИСОВАНИЕ в библиотех графики Паскаля.
26 скорее всего, учили когда-то
Program qq;;
var S:array[1..8] of integer;
i, SA, sum, k:integer;
begin
for i:=1 to N do readln(S[i]);
sum=0; k:=0; SA:=0;
for i:=0 to 8 do begin
sum:=sum+A[i];
k:=k+1;
end;
SA:=s/k;
if (S[i]>SA) then writeln(S[i]);
<span>end.</span>