n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/ReadSignalTest2.pas

20 строк359 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


var s:string;
    i,j:integer;
begin
//  i:=i div i;
  write('������� ������: ');  
  readln(s); 
  writeln('�� �����: ',s);  
  
  write('������� �����: ');
  readln(i);
  writeln('�� �����: ',i);  
  
  write('������� ��� �����: ');
  readln(i,j); 
  writeln('�� �����: ',i,' ',j);  
  
  writeln('Sleep(1000)');  
  sleep(1000);
  writeln('�����');  
end.