Написать программку на языке Паскаль. Даны три действительные числа. Сложить те

program chisl;var a,b,c:integer;beginwrite('Введите a = ' );readln(a);if a>=0 then a:=(a) ;write('Введите b = ' );readln(b);if b>=0 then b:=(b) ;write('Введите c = ' );readln(c);if c>=0 then c:=(c) ;writeln('a );end.

довести до разумы надо не как не усвою

Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a gt;= 0) and (b gt;= 0) and (c gt;= 0) then rez := a + b + c;
if (a gt;= 0) and (b gt;= 0) then rez := a + b;
if (a gt;= 0) and (c gt;= 0) then rez := a + c;
if (b gt;= 0) and (c gt;= 0) then rez := b + c;
if (a lt;= 0) and (b lt;= 0) then rez := c;
if (b lt;= 0) and (c lt;= 0) then rez := a;
if (a lt;= 0) and (c lt;= 0) then rez := b;
if (a lt;= 0) and (b lt;= 0) and (c lt;= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, размышляю, покатит

Program chisl;
var a,b,c,d:integer;
begin
write('Введите a = ' );
readln(a);
if agt;=0 then d:=d+a;
write('Введите b = ' );
readln(b);
if bgt;=0 then d:=d+b;
write('Введите c = ' );
readln(c);
if cgt;=0 then d:=d+c;
writeln(d);
end.