4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk
Program dd;
var a:string;
i:integer;
begin
readln(a);
for i:=1 to 4 do
writeln(a);
<span>end.</span>
Ответ:
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a-b>0 then Write('БОЛЬШЕ');
if a-b<0 then Write('Меньше')
end.