Question

найти ошибку

Program Hello; // Pascal [fpc 3.0.4]

const

H = 'ЛР №';

var

max, min: real;

a,b,c: integer;

begin

writeln (H);

writeln('Введите значение max');

readln (max);

writeln ('Введите значение min');

readln (min);

writeln (' Введите значение a ');

readln (a);

writeln ('Введите значени b');

readln (b);

writeln ('c');

readln (c);

if a > max and b < min then

c:=(a+b)/2

else

c:=0;

end.

или

program Hello; // Pascal [fpc 3.0.4]

const

H='';

var

max, min: real;

a,b,c: integer ;

begin

writeln (H);

a:=10;

b:=14;

min:=12;

max:=18;

if (a > max) and (b < min) then

c:=(a+b)/2

else

c:=0;

end.

Не получается (((