23 lines
365 B
ObjectPascal
23 lines
365 B
ObjectPascal
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. |