Помогите,прошу Если можно,сразу вид,как в паскале Билет по икт Составить

+ 0 -

Oololololooloo

22 апр. 2015 г., 20:05:13 (9 лет назад)

program proga; 

uses crt;

var

 x,y:integer;

begin

clrscr; 

Writeln('Введите поочередно два числа');

readln(x);

readln(y); 

if x>y then

Writeln(' x>y ')

else

if y>x then

Writeln(' y>x ') 

else

 Writeln(' y=x ')  ;

writeln;

end.

+ 0 -

настя010497

22 апр. 2015 г., 20:50:10 (9 лет назад)

Program Arika2;
uses crt;
var
  a,b:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Введите два числа');
  write('Первое: '); readln(a);
  write('Второе: '); readln(b);
  if a>b then
      writeln('Первое число больше второго')
    else
      if a>b then
          writeln('Второое число больше первого')
        else
          writeln('Числа равны');
end.