-Цитата от Трэй

-Цитата от ZooMMeN

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


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

-

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.

на, работает
я тока вчера паскаль начал учить

ммм хз мне написало 7 ошибок((((
оооо сенкс)))

Добавлено через 6 минут 45 секунд

-Цитата от Трэй

-

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

Begin

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

if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END.

вот синтаксис поправил.теперь работает

Ммм так поставить и будет работать????