program znanie;
var
y, a, b, c: integer;
begin
writeln('введите значения: a,b,c');
readln(a, b, c);
if (a > b) and (a > c) then
y := a;
writeln('y равен ', y);
end ;
if (b > a) and (b > c) then
y := b;
if (c > b) and (c > a) then
y := c;
end.
Объяснение:
если не сложно,поставь лучший ответ;)
program znanie;
var
y, a, b, c: integer;
begin
writeln('введите значения: a,b,c');
readln(a, b, c);
if (a > b) and (a > c) then
begin
y := a;
writeln('y равен ', y);
end ;
if (b > a) and (b > c) then
begin
y := b;
writeln('y равен ', y);
end ;
if (c > b) and (c > a) then
begin
y := c;
writeln('y равен ', y);
end ;
end.
Объяснение:
если не сложно,поставь лучший ответ;)