Для каждого из четырёх логических выражений напишите наименьшее целое число , для которого выражение истинно:
a) ¬ x≤200 ∧ xкратно10
b) (x>359)∨¬(x<100)
c) (x>70)∨(x>170)
d) (x<384)∧(x>123)

2 лепешки просто - на одну сторону положила, 1 мин пожарила, перевернула,
еще 1 мин пожарила, сняла. 2 мин.
3 лепешки сложнее, но можно уложиться в 3 мин.
Положила 2 лепешки на одну сторону, пожарила 1 мин. 
Одну лепешку сняла, вместо нее положила 3-ью, а 2-ую перевернула.
Пожарила 1 мин.
2-ую лепешку сняла готовую, положила 1-ую, а 3-ью перевернула.
Пожарила 1 мин.
Всего 3 мин.
4 и 5 лепешек точно также можно пожарить за 4 и 5 мин.
Одну пожарила с одной стороны и заменила на 3-ью, 2-ую перевернула.
Потом также 4 и 5.

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

5. 

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.