Нужно составить программу, вычисляющую сумму только положительных чисел из трех вводимых с клавиатуры. в турбо паскале

Var  a,b,c,ap,bp,cp: real; begin read(a,b,c); if  a> 0  then ap: =a else ap: =0;   if b> 0 then bp: =b  else bp: =0;   if c> 0 then cp: =c else cp: =0; write  (ap+bp+cp); end.

Program picaso; uses crt; var a,b,c,s: integer; begin clrscr; writeln('a: '); read(a); writeln('b: '); read(b); writeln('c: '); read(c); if(a > 0) then a: =a else a: =0; if(b > 0) then b: =b else b: =0; if(c > 0) then c: =c else c: =0; s: =a+b+c; writeln(s); readln; end.

    1 способ                                             2 способ

х чаек - на первом острове                 х чаек - на первом острове

у чаек - на втором острове                   79-х чаек - на втором острове

х+у=79               х+у=79                         х-15-12=79-х+12

х-15-12=у+12     х-у=39                          2х=118

                        2х=118                           х=59

                        х=59                               79-59=20

                        у=20

ответ: на первом острове 59 чаек, на втором - 20 чаек.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.