напишите наибольшее двузначное число x, для которого истинно высказывание ( только первая цифра чётная) и не(число делится на 3) и (число делится на 5)

(первая цифра четная) и не (число делится на 3) и (число делится на 5)

ответ: 85

1. Цифра 8 - четная

2. 85 / 3 = 28.33 - верно

3. 85 / 5 = 17 - верно

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.