Ծրագրավորման Պասկալ լեզու

[Jerry]

Մի բան հարցնեմ, եթե կա էսպիսի ղնդիր տրված է 3 փոփոխական, ասում է գտնել Max թվերն են A,B,C սրա ծրագիրը ոնց ա?

[armen9494]

Մի բան հարցնեմ, եթե կա էսպիսի ղնդիր տրված է 3 փոփոխական, ասում է գտնել Max թվերն են A,B,C սրա ծրագիրը ոնց ա?

Program MAX;
Var a,b,c,max:real;
Begin Read(A,B,C);
If a>b then max:=a else max:=b;
If c>max then max:=c;
write(max)
end.