Объяснение:
Вот таблица, горизонтальные не принимает;)
Проверьте то, что вы написали
В 4) непонятно
1) Алёша правильно сказал что сосуд изготовлен в 5 веке.
2) Боря правильно сказал что сосуд финикийский.
3) Гриша правильно сказал что сосуд не греческий.
Как-то так. Извини что без таблицы, но чем смогла помочь, тем помогла.
Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11