-Цитата от krupa

-Цитата от ZooMMeN

спасиб огромное

-

Program Max_Tsena;
Var a,b,c,summ : Real;

Begin

Writeln("vvedite tsenu 3-ox tovarov");
Read(a,b,c);

if (a>c) AND (b>c)
sum:=a+b;
else
if (b>a) AND (c>a)
sum:=b+c;
else sum:=a+c;

Writeln("sum=",sum);
Read();
END.

только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит

ещё раз спасибо


хоть не пустую работу здам

uses crt;
var a,b,c,summa:real;
begin
clrscr;
readln(a,b,c);
if (a>b) and (c>b) then summa:=a+c else write(' ');
if (b>a) and (c>a) then summa:=b+c else write(' ');
if (a>c) and (b>c) then summa:=a+b else write(' ');
writeln(summa :1:0);
readln
end.