21 lines
359 B
ObjectPascal
21 lines
359 B
ObjectPascal
|
|
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. |