Значение функции:
А В -> значение
0 0 -> 0
0 1 -> 1
1 0 -> 1
1 1 -> 1
изображение не подскажу
var a,b,c,d:integer;
begin
writeln('Введите a');
read(a);
writeln('Введите b');
read(b);
writeln('Введите c');
read(c);
d:=b*b-4*a*c;
if (d>0) then
writeln ('2 корня')
else
if (d=0) then
writeln('1 корень')
else
writeln('нет корней');
end.
Program Program1;
var a,b,c,d:real;
begin writeln('Введите число 1'); readln(a); writeln('Введите число 2'); readln(b); writeln('Введите число 3'); readln(c); d:=a+b+c; writeln('a+b+c=',d);end.