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

TestSamples/CompilationSamples/ReadSignalTest.pas

23 строки365 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

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