Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
program sortirovka;
var
  a, b, c, x: integer;
begin
  writeln('vvedite 3 chisla ');
  Readln(a, b, c);
  if a>b then
  begin
    x:=a;
    a:=b;
    b:=x;
  end;
  if b>c then
  begin
    x:=b;
    b:=c;
    c:=x;
  end;
  writeln('chisla v poryadke vozrastaniya ');
  Readln(a, b, c);
end.          
          
Comments: