var
i,a,b:integer;
begin
randomize;
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.
Read(a,b); c:=a+b; Write(a,b,c);
Только надо помнить, что на выводе все "слипнется" и не удивляться.
Begin
writeln('Вася');
writeln(' ':4,'пошёл');
writeln(' ':9,'гулять');
writeln;
writeln(' Ж');
writeln(' ЖЖЖ');
writeln(' ЖЖЖЖЖ');
writeln('ЖЖЖЖЖЖЖ');
writeln(' HH HH');
writeln(' ZZZZZ');
end.
Var a : real;beginwriteln('Кол-во дюймов: ');readln(a);a:=a*2.54;writeln(a, ' СМ');end.
1. System 32. Рабочий стол.
2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows.